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IDENTIFICATION 
PRODUCT CODE: AC-S388A-MC 
PRODUCT NAME : CZMLAAO ML11 LOGIC TEST 
PRODUCT DATE: 2-FEB-81 
MAINTAINER: TOM LANWSBY 
AUTHOR : D.W.NEALE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION 
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DIGITAL POP UNIBUS MASSBUS 
DEC DECUS DECTAPE 


SEQ 000% 


wa) 


¢ 
CZMLAAO ML=11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 2 
TABLE OF CONTENTS 


=< £ USER DOCUMENTATION 
1 PROGRAM HEADER AND TABLES 
46-1 MISCELLANEOUS CODING SECTION 
1 HARDWARD TEST SECTION 


- 


SEQ 0002 


core Or 
i 


CZMLAAO ML-11 LOGIC TEST 


USER DOCUMENTATION 


Oo WN FF WW RM PPMPPMPRTPM AeA 
. . . . . . . io . . 7 oa . se . e . 
Co OO CO NOAMEWN HO FWM RO 


w 


. D 
MACRO M1113 23-OCT-80 09:11 PAGE 3 
SEQ 0003 


TABLE OF CONTENTS 


w 


GENERAL INFORMATION — 
PROGRAM ABSTRACT 

SYSTEM REQUIREMENTS 

RELATED DOCUMENTS AND S'ANDARDS 
DIAGNOSTIC HIERARCHY PREREQUISITES 


OPERATING INSTRUCTIONS ™~ 
COMMANDS 

SWITCHES . Ps. 
FLAGS | 
HARDWARE QUESTIONS 


SOFTWARE QUESTIONS 
EXTENDED P-TABLE DIALOGUE 


QUICK STARTUP PROCEDURE € , 

\ 
ERROR INFORMATION \ 
PERFORMANCE AND PROGRESS REPORT 


| 
| 
| 
DEVICE INFORMATION TABLES . 
TEST SUMMARIES 


E 
CZMLAAO ML-11 LOGIC TEST MACRO M1113 23-007-80 09:11 PAGE 4 
USER DOCUMENTATION 


-0 GENERAL INFORMATION 
1 PROGRAM ABSTRACT 
GNOSTIC ENGINEERING WAS CONTRACTED BY MEMORY ENGINEERING TO MAKE THIS 


1A 
tT ALS IN ORDER TO AID MEMORY ENGINEERING TO DESIGN AND DEBUG THE 


1 
1. 
Dd 
1 AID FIELD SERVICE FOR FIELD REPAIRS AND INSTALLATIONS OF THE 


| 
| : . THIS DIAGNOSTIC PRODUCT WILL BE DESIGNED TO TEST FROM ONE TO EIGHT 
ML-11 UNITS OFF A SINGLE RH11 OR RH70 CONTROLLER. 
THE FUNCTIONAL LEVEL (FRU) OF THIS DIAGNOSTIC PRODUCT WILL BE TO _ THE 
LOGIC FUNCTION LEVEL (I.E. ORIVE SELECTION). UPON DETECTION OF AN 
ERROR BY THE DIAGNOSTIC, THE LOGIC FUNCTION AND RESPECTIVE MODULE 
WHICH IT IS LOCATED ON WILL BE PRINTED TO THE OPERATOR. 
THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 
1.2 . SYSTEM REQUIREMENTS 


THE HARDWARE DESIGN IS EXPECTED TO CONFORM TO THE STANDARDS SET FORTH 
IN THE MASSBUS SPECIFICATION (DEC STANDARD 159). 


| 
| 
* — PDP=11 WITH MINIMUM OF 28K WORDS OF MEMORY 
CONSOLE TERMINAL 
RH11 OR RH70 
1 TO 8 ML-11 DRIVES ON INTERMIXED BUS 
XXDP+ LOAD MEDIA 
1.3. RELATED DOCUMENTS AND STANDARDS 
1. SUPPRGC.DOC 
| SUPINT . MEN 
SUPF UN. C 
XXDPPLUS . DOC 
BLISS LANGUAGE GUIDE 
BLISS-16 USER'S GUIDE 


ere uw EF AH NK 
° ° . r © 


1.4 DIAGNOSTIC HIERARCY PREREGUESI TES 


SEQ 0004 
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‘ \ 
IT WILL BE ASSUMED THAT PRIOR TO THE RUNNING OF THIS DIAGNOSTIC THAT 
ALL APPROPRIATE CPU, MAIN MEMORY AND RH CONTROLLER DIAGNOSTICS HAVE 
BEEN SUCCESSFULLY RUN. 


THIS DIAGNOSTIC WILL HOWEVER PERFORM MINIMAL RH TESTS TO ENSURE ITS 
= tga AND BASIC FUNCTIONALITY BEFORE LOGIC TESTS ARE ALLOWED TO 
2.0 OPERATING INSTRUCTIONS : 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC sheet 2 + bh a 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT SiART TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (iF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE at So 
YOU MAY, FOR EXAMPLE, TYPE ‘STA’ INSTEAD OF ‘‘START' 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 


THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD"’. 


SWITCH EFFECT 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
/PASS:DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 9 tetete 


/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE 
IN SECTION 2.3. 


SEQ 0005 
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/EOP:DDDDD REPORT END OF PASS ieseee AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE = /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1-5/PASS:1000/EOP:100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE cowed at YOU MAY, 
FOR EXAMPLE, TYPE ‘'/TES:1-5'' INSTEAD OF ‘'/TESTS:1-5"". 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 


TESTS. . PASS FLAGS EOP UNITS 
START xX x x 
RESTART X x 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCK. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE * LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 
IXR* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 
PRI DIRECT MESSAGES TO LINE PRINTER 


SEQ 0006 
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PNT PRINT 4x NUMBER AS TEST EXECUTES 

BOE "BELL'’ ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 
ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY 10 DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


HAVE. EVALUATION SUPPORT) 
*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A ‘BELL’ ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE: IER: BOE 


2.4 HARDWARE QUFSTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING “CHANGE HW (L) ?°' 
YOU MUST ANSWER ‘'Y"' AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN '‘PRELOADED'' USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A ‘'Y'', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


PARAMETER CODING CALLS 


GPRMA MSGH1,0,0,0,177777,YES :RH ADDRESS 

GPRMD MSGH2.2,0.77,11,70,YES *RH TYPE 

GPRMD MSGH3.4.0.777,0,777,YES [RH VECTOR ADDRESS 
GPRMD MSGH4.6,D,77,1,16.,YES “NUMBER FO ARRAYS 
GPRML MSGHS.10,1,YES [DRIVE OPTIONS 
GPRMD MSGH6.12.0.7,0,7,YES “DRIVE NUNBER 
GPRML MSGH7.14.1.YES “PARITY DISABLED 


PARAMETER CODING MESSAGES 


MSGH1: .ASCIZ /RH ADDRESS?/ 

MSGH2: .ASCIZ /IS RH AN ‘70° OR ‘'11?/ 
MSGH3: .ASCIZ /RH VECTOR ADDRESS?/ 

MSGH4: .ASCIZ /NUMBER OF ARRAY MODULES?/ 
MSGH5: .ASCIZ /1S DRIVE OPTION AN ML11A?/ 
MSGH6: .ASCIZ /ML~-11 DRIVE NUMBER?/ 
MSGH7: .ASCIZ /1S PARITY DISABLED?/ 


SAMPLE DIALOGE 
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DR> STA <CR> 
CHANGE HW <L> ? Y= <CR> 
# UNITS <D> ? 1 = <CR> 


UNIT 0 

RH ADDRESS <0> bree ? <CR> 

1S 8H AN ‘70° OR '11' <O> 2? <CR> 

RH VECTOR ADDRESS > 204 ? <CR> 

NUMBER OF ARRAYS MODULES 7? <D> 16 ? 14 <CR> 
IS DRIVE OPTION AN ML11A ? <L> Y ? <CRD> 

ML-11 DRIVE NUMBER ? <O> 0 ? <CR> 

IS PARITY DISABLED ? <L> N ? <CR> 


2.5 SOFTWARE QUESTIONS 

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY ‘CHANGE SW (L) ?” 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

"y"', THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 
PARAMETER CODING CALLS 

GPRML MSGS1,0,1,NO 

PARAMETER CODING MESSAGES 

MSG1: .ASCIZ /PRINT SERIAL NO.?/ 
SAMPLE DIALOGE 


PRINT SERIAL NO. ? <t> N? Y= <CR> 


;PRINT THE DRIVE SERIAL NUMBER 


2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO rs THIS TABLE IS TO ANSWER ALL QUESTIONS FOR oe 
ett TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNI CATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 
A FICTIONAL DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 
A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7. THERE 


SEQ 0008 
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1S ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


# UNITS (D) 2? 8<CR> 
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SIMPLE WAY 


160000<CR> 
O<CR> 
1<CR> 


UNIT 1 

CSR ADDRESS (0) ? 
SUB-DEVICE # (0) ? 
Q-FACTOR (0) 0 ? 


160000<CR> 
1<CR> 
0<CR> 


UNIT 2 
* CSR ADDRESS (0) ? 
SUB-DEVICE # (0) ? 
Q-FACTOR (0) 1 ? 


UNIT 3 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 


Q-FACTOR (0) 0 ? <CR> 

UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 4<CR> 
Q-FACTOR (0) 0? <CR> 

UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 6<CR> 
Q-FACTOR (0) 0? 1<CR> 

UNIT 8 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE 
NON-DEFAULT RESPONSE IS GIVEN. 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, 
DO NOT VARY SIGNIFICANTLY FRCM UNIT TO UNIT. 


NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECI? 
“I eee THE SAME TABLE USING THE MULTIPLE SPEC 


Q-FACTOR CHANGES WHEN A 
BE CAREFUL WHEN SPECIFYING 


THE HARDWARE PARAMETERS 
THE PROCEDURE SHOWN 15 


ONS HOWEVER. 


ICATI 
IFICATION 


kK 1 
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# UNITS (D) 2? &<CR> 


UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 0,1<CR> 
Q-FACTOR (0) 0? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?_ 2=5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 
CSR ADDRESS (0) ?  160000<CR> 
SUB-DEVICE # (0) ? 6,7<CR> 
Q-FACTOR (0) 0? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 

BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 
**="* CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2. 3. 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


# UNITS (0D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?_ O-7<CR> 
Q-FACTOR (0) 0? 0,1,0,..,,1,1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE "'R NAME'’, WHERE NAME IS THE NAME OF THE BIN OR BIC 


a 
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FILE FOR THIS PROGRAM 
4. TYPE ‘'START"’ 
5. ANSWER THE ‘CHANGE HW'’ QUESTION WITH ‘'Y"’ 
6. ANSWER ALL THE HARDWARE QUESTIONS 
7. ANSWER THE "‘CHANGE SwW'’ QUESTION WITH ‘'N’’ 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE ‘‘IER'’ FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = 0 - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE a ALWAYS PRINTED UNLESS 
THE "‘IER'' OR ‘‘IBR'' FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE “‘IER'', “‘IBR'’ OR ‘'IXR'’ FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 

ERROR MESSAGES ARE HANDLED VIA A DICTIONARY STRUCTURE. 


WORDS AND PHRASES ARE MULTIPLY REFERENCED USING ONLY 
ONE COPY OF THE WORD OR PHRASE IN CORE. 


THiS PERMITS EXTENSIVE ERROR MESSAGE PRINTING AT MINIMAL 
STORAGE REQUIREMENTS. 


THE FOLLOWING DEMONSTRATES TYPICAL ERROR MESSAGES: 
ML11 DVC FTL ERR 00077 ON UNIT 07 TST 027 SUB 002 PC: 050432 


m4 
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. * ASYNCHRONOUS MODULE FAILURE 
EXCESSIVE DATA ERRORS DURING INITIAL ARR RD_WRT 


ML11 DVC FTL ERR 00112 ON UNIT 03 TST 037 SUB 000 PC: 056466 
ASYNCHRONOUS MODULE FAILURE 

ARRAY ADRS MULTIPLEXER FAILURE 

FAILED AT DSA: 000000 


3.2.1 ERROR NUMBER DEFINITION 


ERROR NO. FAILING LOGIC 
| . 1 DRIVE DID NOT RESPOND 
WITHIN 1.5 US 
2 DSA REG READ/WRITE ERROR 
DURING DRIVE SEL TEST 
3 UNIQUE DRIVE SELECTION 
ERROR 
4 Mi REGISTER READ WRITE 
ONES/ZEROES ERROR 
5 ML REGISTER READ WRITE 
ONES/ZEROES ERROR 
6 ML REGISTER INITIALIZATION 
ERROR 
7 CONTROL BUS BAD PARITY 
NOT DETECTED 
fa CONTROL BUS GOOD PARITY 
NOT DETECTED. 
is CONTROL BUS BAD PARITY 
GENERATED 
10 ARRAY SIZING LOGIC ERROR 
11 GO BIT NOT CLR AFTER 
NOOP FUNCTION 
12 ILF BIT st! DURING NOOP 
FUNCTION 
. 13 OPI BIT SET DURING NOOP 
| FUNCTION 
14 GO BIT NOT SET DURING WRITE 
CHECK FUNCTION 


15 DRY BIT NOT CLEAR DURING 
4 WRITE CHECK FUNCTION 


.e -- 
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DRY BIT SET WHEN GO SET 
DURING WRITE CHECK FUNCTION 


ILF SET DURING WRITE 
CHECK FUNCTION 


OPI BIT SET DURING WRITE 
CHECK FUNCTION 


GO BIT NOT CLEAR AFTER WRITE 
CHECK FUNCTION ‘ASYNC FAILURE’ 


GO BIT NOT CLEAR AFTER WRITE 
CHECK FUNCTION "SYNC FUNCTION' 


DRY BIT NOT SET AFTER WRITE 
CHECK FUNCTION 


GO BIT NOT CLEAR AFTER WRITE 
CHECK FUNCTION ‘ASYNC FAILURE' 


GO BIT NOT CLEAR AFTER WRITE “ 
CHECK FUNCTION ‘SYNC FAILURE’ 


GO BIT NOT SET DURING WRITE 
FUNCTION 


DRY BIT CLEAR WITH GO CLEAR 
DURING WRITE FUNCTION. 


DRY BIT SET WITH GO BIT 
DURING WRITE FUNCTION. 


ILF BIT SET DURING WRITE 
FUNCTION 


OPI BIT SET DURING WRITE FUNCTION 


GO BIT NOT CLEAR AFTER WRITE 
FUNCTION ‘ASYNC FAILURE’ 


GO BIT NOT CLEAR AFTER WRITE 
FUNCTION "SYNC FAILURE’ 


DRY BIT NOT SET AFTER WRITE 
FUNCTION. 


GO BIT NOT CLEAR AFTER WRITE 
FUNCTION "ASYNC FAILURE* 


GO BIT NOT CLEAR AFTER WRITE 
FUNCTION ‘ASYNC FAILURE’ 


GO BIT NOT SET DURING READ 
FUNCTION. 


SEQ 0013 


foe ree SO 
} 
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DRY BIT SET WHILE GO CLEAR 
DURING READ FUNCTION. 


DRY BIT SET WHILE GO SET 
DURING READ FUNCTION. 


ILF BIT SET DURING READ 
FUNCTION. 

OPI BIT SET DURING READ 
FUNCTION 

GO BIT NOT CLEAR AFTER READ 


FUNCTION 'ASYNC FAILURE" 


GO BIT NOT CLEAR AFTER READ 
FUNCTION ‘SYNC FAILURE' 


DRY BIT NOT SET AFTER READ 
FUNCTION 


GO BIT NOT CLEAR AFTER READ 
FUNCTION "ASYNC FAILURE’ 


GO BIT NOT CLEAR AFTER READ 
FUNCTION "SYNC FAILURE’ 


GO BIT NOT CLEAR AFTER 
CLEAR FUNCTION 


DRY BIT SET WHILE GO SET 
DURING CLEAR FUNCTION 


DRY BIT NOT SET AFTER 
CLEAR FUNCTION. 


ILF BIT SET DURING CLEAR 
FUNCTION 
OP1 BIT SET DURING CLEAR 
FUNCTION 


COMPOSITE ERROR BIT NOT 
SET AFTER MLER BITS SET 


ATA BIT SETTING ERROR 
ATTN BIT SETTING ERROR 


ATTN BIT NOT CLEARED BY 
MLCS1 NOOP FUNCTION 


ATA BIT NOT CLEAR AFTER 
WRITING A ONE TO IT 


WRITING A ONE TO OTHER 
DRIVES ATA BIT CLEARED 


SEQ 0014 
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THIS DRIVES ATA BIT 


GO BIT NOT CLEARED AFTER 


SEARCH FUNCTION 


ILF BIT SET DURING SEARCH 
FUNCTION 


NO-OP- FUNCTION DID NOT 


ae THE ATA BIT AFTER BEING 


ATA BIT NOT SET AFTER 
SEARCH FUNCTION 


OP] BIT SET DURING SEARCH 
FUNCTION AT PRESENT ARRAYS 


ATA BIT SET AFTER SEARCH 


AT NOT PRESENT ARRAYS. 
GO BIT NOT CLEAR AFTER 


READ-IN-PRESET FUNCTION 


ILF BIT SET DURING 
READ-IN-SET FUNCTION 


OPI BIT SET DURING 


READ-IN-PRESET FUNCTION 


UV BIT NOT SET AFTER 


READ-IN-PRESET 


GO BIT NOT CLEARED 
AFTER ILLEGAL FUNCTION 


ILLEGAL FUNCTION NOT 
DETECTED 


OP] i" WITH ILLEGAL 


FUNCTIO 


‘RMR BIT NOT SET AFTER 


MODIFYING REG WITH FUNCTION 


IN PROGRESS. 


MEMORY ARRAY PROM 


CHECK SUM ERRORS DURING 


INITIAL PROM READS 
NIBBLE OFF SET COUNTS 


GREATER THAN 14 DETECTED. 


UNS iH SET WITH GOOD 


UV DAT 


UNS BIT SET WITH GOOD 


SEQ 0015 


-CZMLAAO ML=-11 LOGIC TEST 
USER DOCUMENTATION 


74 


75 


76 


77 


78 


79 


80 


81 


82 
83 


84 


85 


86 


87 


0 
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UV DATA 


UNS BIT NOT SET WITH BAD 
UV DATA 


UNS BIT NOT SET WITH BAD 
UV DATA 


MEMORY ARRAY PROM ROW/ 
COL DATA ORING ERROR 


BAD NIBBLE ‘ate OF 
36 EXCEEDED DURING 
tt Na ARRAY READ/WRITE 


UNIQUE PROM SELECTION 
ERROR 


FAILURE TO FIND GOOD ROW 
DURING READ WRITE ARRAY 
WITH PROM DATA > 


MEMORY ARRAY TIMING AND 
CONTROL FAILURE TO REFRESH 
MEMORY 


DATA ERRORS DETECTED AT 
LAST BLOCK DURING ADDRESSES 


COUNTER TEST. (TEST ABORTED) 


ADDRESS COUNTER ERROR 


UNIQUE MEMORY ARRAY 
MODULE SELECTION FAILURE 


ALL BITS IN ALL NIBBLES 
TESTED DURING SEQUENCER 
EXISTENCE TEST WERE IN 
ERROR (FAIL UNIT) 


INTERMEDIATE FAILURE. SOME 
BITS IN NIBBLES TESTED WERE 
IN ERROR (CONTINUE TESTING) 


SYNC BUS DATA BIT 
WRITE PATH CONTINUITY 
FAILURE 


SYNC BUS DATA BIT 
READ PATH CONTINUITY 
FAILURE. 


RAM BUS ADRS COUNTER 
FAILURE TO LOAD/UNLOAD 
SKIP RAM DURING WRITE 
FUNCTION 


CZMLAAO ML-11 LOGIC TEST 
USER DOCUMENTATION 


89 


90 


91 


92 


93 


94 


95 


96 


97 


98 


99 


100 


101 


102 


: E 
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RAM BUS ADRS COUNTER 
FAILURE TO LOAD/UNLOAD 
SKIP_RAM DURING READ 
FUNCTION. 


SYNC DATA BUS WRITE PATH 
UNIQUE DATA BIT 

FAILURE (ALL ONES NIBBLE 
PATTERN) 


SYNC DATA BUS WRITE 

PATH UNIQUE DATA BIT 
FAILURE (SHIFTED BiT 
NIBBLE PATTERN) 


SYNC DATA BUS WRITE 

PATH UNIQUE DATA BIT 
FAILURE (ALL ONES NIBBLE 
PATTERN) 


SYNC DATA BUS READ PATH 
UNIQUE DATA BIT FAILURE 


NIBBLE OFF SET 
COUNTERS FAILURE 


CS1 FUNCTION ABORT 
FAILURE DURING CLASS 
‘A’ ERROR. 


CS1 FUNCTION ABORT 
FAILURE DURING CLASS 
"B* ERROR 


LBT BIT SET BEFORE 
A LAST BLOCK. TRANSFER 


DSA REGISTER INCREMENT 
FAILURE DURING NON LAST 
BLOCK TRANSFERS. 


LBT BIT NOT CLEAR 
AFTER *LOADING DSA REG 


LBT BIT NOT SET 
AFTER A LAST BLOCK 
TRANSFER 


DSA REGISTER 
INCREMENT FAILURE 
AFTER A LAST BLOCK 
TRANSFER 


IAE BIT NOT SET AT 
INVALID SECTOR ADDRESSES 


SEQ 0017 


A 


CZMLAAO ML-11 LOGIC TEST 
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103 


104 


105 


106 


107 


108 


109 


110 


111 


112 


113 


114 


115 


116 


117 


f ¢@ 
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AOE BIT NOT SET 
AFTER ADDRESS OVERFLOW 


SC BIT NOT AFTER 
CS1 FUNCTION ADORT 


GOOD DATA BUS 
PARITY NOT DETECTED 


GOOD DATA BUS 
PARITY NOT GENERATED 


UNS BIT SET AFTER 
WRITING TO A SECTOR 
DURING PROM DATA 
TEST 


UNS BIT NOT SET WITH 
BAD UV DATA 

WCE BIT SET DURING 

MBUS WRITE/READ 

FUNCTION TROUBLE SHOOTING 
LOOP TEST 


UNIQUE REGISTER 
SELECTION TEST FAILURE 


FAILURE TO FIND GOOD 


TEST 
CINTERMEDIATE “DIAG MSG) 
UNIQUE ARRAY MODULE 
ROW/COL ADDRESSING 
FAILURE 


DRIVE TYPE REGISTER VALUE 
WAS NOT CORRECT 


TRE BIT SET UNEXPECTEDLY 


DURING A WRITE CHECK TRANSFER 


CINTERMEDIATE DIAG ERROR) 


TRE BIT SET UNEXPECTEDLY 
DURING A WRITE TRANSFER 
(INTERMEDIATE DIAG ERROR) 


TRE BIT SET UNEXPECTEDLY 
DURING A READ TRANSFER 
(INTERMEDIATE DIAG ERROR) 


TRE BIT DID #OT SET AFTER 


A REGISTER MODIFICATION ERROR 
(EXCEPTION WAS NOT ASSERTED) 


4.0 PERFORMANCE AND PROGRESS REPORTS 


SEQ 0018 


: G 
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USER DOCUMENTATION 


2 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE "‘EOP’’ SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


5.0 DEVICE INFORMATION TABLES 
HARDWARE DEFAULT PTABLE 


«WORD 176400 ;RH ADDRESS 

-WORD 70 ;RH TYPE 

-WORD 204 ;RH VECTOR ADDRESS 

-WORD 16. ;NUMBER OF ARRAY MODULES 

-WORD 1 31S DRVE OPTION MLI1A, 1=16K, 0=64K 
-WORD 0 ;ML-11 DRIVE NUMBER 

-WORD 0 71S PARITY DISABLED, 1=YES, O=NO 


SOFTWARE DEFAULT TABLE 
PRSN: -WORD 0 ;PRINT SERIAL NUMBER, 1=YES, 0=NO 
6.0 TEST SUMMARIES 
TST1. DRIVE PRESENT 
TEST TO SEE IF THE DRIVE UNDER TEST EXIST. 
TST2. DRIVE SELECTION 
SEE IF SELECTING OTHER DRIVES ON RH EFFECIS DRIVE UNDER TEST. 
TST3. READ WRITE REGISTER ONE'S ZERO'S TEST 
TEST REGISTERS READ WRITE CAPABILITY AND UNIQUENESS 
TST4. READ WRITE REGISTER SHIFTING ONE'S AND ZEROES 
TEST REGISTERS FOR UNIQUE DATA BITS. 
TSTS. REGISTER INITIALIZATION 
TEST REGISTERS FOR CORRECT INIT DATA. 
TST6. REGISTER SELECTION TEST 
TEST FOR UNIQUE REGISTER SELECTION 
TST7. PRINT DRIVE SERIAL NUMBER 


PRINT THE CONTENTS OF MLSN IF THE SOFTWARE QUESTION WAS 
ANSWERED ‘YES'. 


TST8. C-BUS PARITY 


Tea 


H 
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TEST IF DRIVE CAN DETECT BAD PARITY ON (C=BUS AND GENERATE 
GOOD PARITY. 


TST9. MEMORY SIZING 


SEE IF MEMORY SIZING LOGIC DETECTS AND RECORD CORRECT NUMBER 
OF ARRAYS PRESENT. 


TST10. NO-OP FUNCTION 

SEE IF A NO-OP FUNCTION CAN BE EXECUTED. 
TST11. WRITE CHECK FUNCTION 

SEE IF A WRITE CHECK FUNCTION CAUSES THE DRIVE TO HANG. 
TST12. WRITE FUNCTION 

SEE IF A WRITE FUNCTION CAUSES THE DRIVE TO HANG. 
TST13. READ FUNCTION 

SEE IF A READ FUNCTION CAUSES THE DRIVE TO HANG. 
TST14. CLEAR FUNCTION 

SEE IF A CLEAR FUNCTION CAN BE EXECUTED. 
TST15. COMPOSITE FRROR BIT TEST 

iy EACH INDIVIDUAL ERROR BIT IN MLER CAUSES A_ COMPOSITE 


TST16. ATA BIT 
TEST IF THE ATA BIT CAN BE SET AND CLEARED. 
TST17. SEARCH FUNCTION 
7 IF A SEARCH FUNCTION CAN BE EXECUTED ON ALL PRESENT ARRA- 


TST18. READ IN PRESET 
TEST IF A READ IN PRESET FUNCTION SETS VOL V H. 
TST19. ILLEGAL FUNCTION 


SEE IF WRITING AN ILLEGAL FUNCTION TO CS1 CAN BE DETECTED AND 
THAT A TRANSFER IS NOT INITIATED. 


TST20. REGISTER MODIFICATION REFUSED 
TEST TO SEE IF WRITING TO SPECIFIC REGISTERS ARE ~ rth: 


WHILE THE¢ DRIVE IS ACTIVE., SEE IF WRITING TO NON-SPECIFI 
REGISTERS ARE ALLOWED WHILE DRIVE IS ACTIVE. 


SEQ 0020 


I 
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TST21. INITIAL PROM TEST 
TEST PROMS FOR EXISTENCE. 
TST22. PROM ‘OR’ FUNCTION TEST 
TEST THE PROM DATA ORING FUNC 
TST23. UV ERROR TEST 


cixene ABILITY OF UV ERR PROMS TO DETECT ALL POSSIBLE CHECK SUM 


TST24. INRTIAL ARRAY TEST 
TEST ARRAY TIMING AND CONTROLFOR EXISTENCE. 
TST25. PROM SELECTION TEST 
TEST FOR UNIQUE PROM SELECTION. 
TST26. READ WRITE MEMORY ARRAY WITH PROM DATA (DIAG MODE) 
SEE IF MEMORY CAN BE WRITTEN AND READ. 
ALSO FIND ERROR FREE BLOCK OF MEMORY FOR FUTURE TESTS. 
TST27. REFRESH TIMING 
TEST TO SEE IF MEMORY CAN BE REFRESHED. 


*. 


TST28. ADDRESS COUNTER 


TEST THE ADDRESS COUNTER FOR ABILITY TO COUNT THROUGH ALL 
POSSIBLE MEMORY ADDRESSES. 


TST29. ARRAY MODULE SELECTION 

TEST FOR UNIQUE ARRAY MODULE SELECTION 
TST30. SEQUENCER EXISTENCE TEST 

TEST TO SEE IF BASIC SEQUENCER TIMING EXISTS. 
TST31. SYNC DATA BUS CONTINUITY/WRITE PATH 


TEST SYNCHRONOUS DATA BUS ah PATH FOR CONTINUITY BY READ- 
ING WRITING ONE'S AND ZERO'S 


TST32. SYNC DATA BUS CONTINUITY/READ PATH 


TEST SYNCHRONOUS DATA BUS READ PATH FOR CONTINUITY BY READING 
WRITING ONE'S AND ZEROES. 


TST33. RAM-BUS ADDRESS COUNTER/WRITE PATH 


‘ 


SEQ 0021 


are 
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USER DOCUMENTATION : SEQ 0022 
TEST ABILITY OF THE RAM=BUS ADDRESS COUNTERS TO LOAD/UNLOAD 
THE SKIP DURING WRITE FUNCTIONS. l 


TST34. RAM BUS ADRS COUNTER/READ PATH 


TEST ABILITY OF RAM/BUS ADRS COUNTERS TO LOAD/UNLOAD THE SKIP 
RAM DURING READ FUNCTIONS. 


TST35. SYNC DATA BUS BIT UNIQUENESS/WRITE PATH 


TEST SYNCHRONOUS DATA BUS FOR DATA BIT UNIQUENESS BY WRITING 
SHIFTING PATTERNS OF ONE'S AND ZERO'S TO THE ML. 


TST36. SYNC DAT BUS BIT UNIQUENESS/READ PATH 


TEST SYNCHRONOUS DATA BUS READ PATH FOR DATA BIT UNIQUENESS 
BY WRITING SHIFTING PATTERNS OF ONES AND ZEROES TO THE 


TST37. ARRAY ADDRESS MUX 
TEST FOR UNIQUE ROW AND COLUMN ADDRESSING 
TST38. NIBBLE OFFSET 


TEST NIBBLE OFFSET COUNTERS TO COUNT TO 14 NIBBLE DATA TO BE 
SHIFTED ON DETECTION OF BAD NIBBLES. 


TST39. CS1 FUNCTION ABORT 


| kK 
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SEE IF A CLASS 'B' ERROR ABORTS A FUNCTION WHILE IN PROGRESS. 


SEE IF A CLASS'A*® ERROR IS DETECTED BUT FUNCTION IS ALLOWED 
TO COMPLETE. 


TST40. LAST BLOCK INDICATOR 


TEST THE LAST BLOCK INDICATOR BIT FOR NOT SETTING BELOW THE 
LAST AND SETTING AND CLRING AT THE LAST BLOCK 


TST41. INVALID ADDRESS TEST 

FOR ALL ILLEGAL DSA ADDRESSES READ THE IAE BIT SET. 
TST42. ADDRESS OVERFLOW 

TEST FOR AOE ON TRANSFERS WHICH EXTEND BEYOND THE LAST BLOCK. 
TST43. SYNC BUS PARITY 

TEST FOR BAD PARITY DETECTION AND GOOD PARITY GENERATION. 
TST44. WRITE READ MEMORY ARRAY (M-BUS BLOCK MODE) 

WRITE READ MEMORY VIA M-BUS BLOCK MODE AT MAX SPEED. 


TST45. PROM DATA TEST 


VERIFY THAT CHECK SUM VALUES FOR ALL PROM LOCATIONS ARE CORRECT. 


SEQ 0023 


| 
| 
| 
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| 


] 


33 
35 
36 


38 
39 
40 


97 


~~ a a et ot I  JBOOOOOOO 


ee ee ee ee ed a ed od od 


000000 


002000 


002000 


002000 


002122 


002130 


002152 


002160 


002162 


002000 


000000 


000000 
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MACRO M1113. 23-OCT-80 09:11 PAGE > 
.SBTTL PROGRAM HEADER AND TABLES 
-ENABL ABS,AMA 


BGNMOD 


2000 \ 


+++ 
THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER ALL 


HEADER ML11,A,0,1800.,0 


: NAMES OF DEVICES SUPPORTED BY THIS PROGRAM 
DEVTYP <ML=-11> 


TEST DESCRIPTION 
DESCRIPT <ML-11 LOGIC TEST> 


THE GLOBAL ERROR TABLE (INFORMATION 
USED IN A CALL TO THE MACRO ‘'ERROR'') 


ERRTBL 


ERRTYP:: » WORD 0 
ERRNBR: : -WORD O 
ERRMSG:: -WORD O 
ERRBLK:: ~ WORD 0 


p++ 
; THE DISPATCH TABLE CONTAINS THE STARTING ADDRES OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 45 


;tt 

; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 

; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
3 IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 
; AND IS USED AS A ‘TEMPLATE’ FOR BUILDING THE P-TABLES. 


SEQ 0024 


CZMLAAO ML-11 LOGIC TEST 
PROGRAM HEADER AND TABLES 


ae 


1 002316 
130 


= 
Wwr 
Ooo 
oO 
oO 


Ot ak td 8 ot 

FE ANWNWA 

SO OONOUE wr 
Mrorrrnrr 
WANA 
WWWrnrnnr 
SRO SNS 


142 


002336 


002340 
002342 


176400 


000000 


000000 
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DFPTBL 

176400 ;RH ADDRESS 

0 RH TYPE 

204 :RH VECTOR ADDRESS 

16. [NUMBER OF ARRAY MODULES 

1 :1S8 DRVE OPTION ML11A, 1=16K, 0=64K 
0 ;Mi-11 DRIVE NUMBER 

0 ;1S PARITY DISABLED, 1=YES, O0=NO 


-++ “ 
; THE DEFAULT SOFTWARE P-TABLE CONTAINS VARIOUS DATA USED BY THE 


: ay ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR AT RUN 


BGNSW 


PRSN: - WORD 
ENDSW 


: PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE SET 


SFPTBL 


0 ;PRINT SERIAL NUMBER, 1=YES, O=N9 


SEQ 0025 





eres 


| 
/CZMLAAO ML=-11 LOGIC TEST 
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DNNAOWUVSWN “OOONAWO 


MMMM PPP frofnrnrnrnrnrVnren— 
WWANINMNMNPNMNIN 2 oo 


002342 


002344 


002432 
002440 


002440 


002634 


002660 


002662 


002670 


002670 


120 
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MACRO M1113 23-OCT-80 09:11 PAGE 8 


11 


: ++ 


THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 


INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 


; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 


BGNHRD 
GPRMA MSGH1,0,0,0,177777, YES 
GPRMD MSGH2,2.0.77,11,70,YES 
GPRMD MSGH3,4.0.777,0,777,YES 
GPRMD MSGH4.6,D,77,1,16.,YES 
GPRML MSGHS.10,1,YES 
GPRMD MSGH6.12.0.7,0,7,YES 
GPRML MSGH7.14.1.YES 
ENDHRD 
MSGH1: .ASCIZ /RH ADDRESS?/ 
MSGH2: .ASCIZ /IS RH AN '70' OR '112/ 
MSGH3: .ASCIZ /RH VECTOR ADDRESS?/ 
MSGH4: .ASCIZ /NUMSER OF ARRAY MODULES?/ 
MSGHS: .ASCIZ /IS DRIVE OPTION AN ML11A?/ 
MSGH6: .ASCIZ /ML-11 DRIVE NUMBER?/ 
MSGH7 -ASC12 71S PARITY DISABLED?/ 


++ 


BGNSFT 
GPRML 
-EVEN 


ENDSFT 


THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TG BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


MSGS1,0,1,YES 


MSGS1: .ASCIZ /PRINT SERIAL NO.?/ 
-EVEN 


sPRINT DRIVE SERIAL NUMBER? 


SEQ 0026 


ES 
p 
| 
| 





3 

305 002712 
306 

307 002712 
308 002714 
309 002716 


310 
$5 002720 


WwW 
nw 


6 
327 002720 
328 002720 
329 
336 
337 002760 
338 
339 
352 


ZMLAAO ML-11 LOGIC TEST 
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177777 
177777? 
177777 
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B83 
8-1 


: THIS TABLE IS USED BY THE RUNTIME SERVICES 
: WO PROTECT THE LOAD MEDIA 


$PATCH:: 


BGNPROT 


ENDPROT 


-BLKW 20 


ENDMOD 


;OFFSET INTO P-TABLE FOR CSR ADDRESS 
;OFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
;OFFSET INTO P-TABLE FOR DRIVE NUMBER 


SEQ 0027 


‘ 


| 4 . 3 
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IC TEST 

MISCELLANEOUS CODING SECTION 4 , SEQ 0028 
1 ~SBTTL MISCELLANEOUS CODING SECTION ; 
6 :ML3 17-0ct-1980 11:31:46 TOPS=20 Bliss-16 V2(206) 
4 ; 29-Sep-1980 10:13:18 PA: <NEALE2ML3.BLI.2 (1) 
| 9; 0001 MODULE ML3 = 

10 ; 0002 BEGIN P 

1: 0003 

ta 8 0004 REQUIRE ‘MACRO.REQ'; 

3s 0718 

14 

18 ; 0719 ‘+4 ° 

16; 0720 ! THE REPORT CODING SECTION CONTAINS THE 

17; 0721 |! ‘‘PRINTS’’ CALLS THAT GENERATE STATISTICAL REPORTS. 

18 ; 0722 '!- 

19; 0723 

20 ; 0724 BGNRPT; 

71 2 0725 RETURN; 

22 ; 9726 ENDRPT; 

26 

27 


34 ; Routine Size: 1 word — , 
35 : Maximum stack depth per invocation: 0 words 


49 004116 004767 177772 LS$RPT:: JSR PC,LRPT ; 0725 
50 004122 104425 TRAP 25 
51 004124 000207 RTS PC 


53 ; Routine Size: 4 words — ‘ 
54 ; Maximum stack depth per invocation: 0 words 


oa 
a 
So 
™N 
Nm 
N 


'¢ 

! THE AUTODROP CODE IS ght oe et AFTER THE INITIALIZE ’ 
0730 | CODE IF THE ‘ADR’ FLAG WAS SET. THE UNIT(S) UNDER TEST ARE 

i CHECKED TO SEE IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 

DROPPED FROM TESTING. ISSUE A "'DODU'’ FOR THOSE THAT DON'T RESPOND. 


0735 BGNAUTO; 
0736 RETURN; 
0737 ENDAUTO; 


83 004126 000207 LAUTO: RTS PC : 0726 


85 ; Routine Size: 1 word ~ 
; Maximum stack depth per invocation: 0 words 


~“ 
—s 
Be Be Se Oe Oe Oe Oe Oe HS 
o 
™~ 
Ww 
Ww 


100 004130 004767 177772 LSAUTO: : JSR PC,LAUTO : 0736 


28 
32 004114 000207 LRPT: RTS PC : : 0716 


dD 3 
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CZMLAAO ML-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 
/MISCELLANEOUS CODING SECTION 
101 004134 104461 TRAP 61 
IOS 004136 900207 RTS PC 
| . 104 ; Routine Size: 4 words 
192 : Maximum stack depth per invocation: 0 words 
111 ; 0738 
112 ;ML3 17-0ct-1980 11:31:46 
113; 29-Sep-1980 10:13:18 
114 
115 
116 ; 0739 ‘4 
117 ; 0740 ! THE DROP=UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
118 ; 0741 ! TO NO LONGER BE TESTED. 
119 ; 0742 '!- 
120 ; 0743 
121 3 0744 S8GNDU; 
122 ; 0745 RETURN; 
\¢3 0746 ENDDU; 
+ 44 004140 000207 LDU: RTS PC 3 
133 ; Routine Size: 1 word 
fof : Maximum stack depth per invocation: 0 words 
140 
144 
148 004142 004767 177772 L$DU:: JSR PC,LDU : 
149 004146 104453 TRAP 53 
184 004150 000207 RTS PC 
152 ; Routine Size: 4 worrs 
22 : Maximum stack depth per invocation: 0 words 
1 
159 
160 ; 0747 
161 
162 ; 0748 '+ 
163 ; 0749 '! THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
164 ; 0750 '! TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
165 ; 0751 ' TO THE TEST CYCLE. 
166 ; 0752 ~='!- 
167 ;ML3 17-Oct-1980 11:31:46 
168 ; 29-Sep-1980 10:13:18 
169 
170 ; 0753 
171 ; 0754 BGNAU; 
172 ; 0755 RETURN; 
173 : 0756 ENDAU; 
HH 004152 000207 LAU: RTS PC 5 
183 ; Routine Size: 1 word | : 
Ho ; Maximum stack depth per invocation: 0 words 
190 
194 


TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>ML3.BLI.2 (1) 


TOPS-20 Bliss-16 V2‘206) 
PA:<NEALE>ML3.BLI.2 (1) 


SEQ 0029 


0737 


0745 


0746 


— 


Boa 


ZMLAAQ ML=-11 LOGIC TEST 
ISCELLANEOUS CODING SECTION 


198 004154 004767 


199 004160 


104452 


200 004162 000207 
201 


202 
203 


~m 
—OooO 
oo 


mone ee oe 
FwWrn |] 0 OOnoONrw oO 


MIPIHONMI MP NMP PO KPorefroroeroe 


Mmror 


0757 
0758 
0759 


177772 


END 
ELUDOM 
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L$SAU:: JSR PC,LAU 
TRAP 52 
RTS PC 


; Routine Size: 4 words — ; 
; Maximum stack depth per invocation: 


3ML3 
Size: 20 code + 0 data words 
Run Time: 00:01.9 


Elapsed Time: 00:07.1 
pee? Used: 12 pages 
Compilation Complete 


0 words 


17-0ct-198 
29-Sep-1198 


0 
0 


1 
1 


SEQ 0030 
0755 

6 TOPS 

8 PA:< 


Pie 
EST MACRO M1113 23-OCT-80 09:11 PAGE 47 


CZMLAAO ML=11 LOGIC 1 
HARDWARD TEST SECTION SEQ 0031 

1 .SBTTL HARDWARD TEST SECTION 
6 :ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
; ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (1) 
9 ; 0001 MODULE ML4 = 

10 ; 0002 BEGIN 

1 3 0003! 

12 ;: 0004 |! PRETTY BLF COMMANDS 

13; 0005s ! 

14 ; 0006 '<BLF/NOERROR> 

15 ; 0007 '<BLF/LOWERCASE_KEY> 

16 ; 0008 =! 

17; 0009 ! REQUIRE 

18; 0010 ! 

19; 0011 

20 ; 0012 require 'BLSMAC.REQ'; 'BLISS INTERFACE MODULE 

1s 1496 ; . , 

22; 1497 ! 

23; 1498 |! CONSTANT LITERALS 

24. 1499! 

22 3 1500 

26 : 1501 Literal 

27; 1502 ONE = 1, ‘DATA BIT OF ONE 

28 ; 1503 ONES = %0'177777', 'DATA PATTERN OF ONES 

29 : 1504 ZERO = 0, ‘DATA BIT OF ZERO 

30 ; 1505 ZEROES = 0, ‘DATA PATTERN OF ZEROES 

31; 1506 NUM_OF _REG = 22, ‘NUMBER OF BLOCKS IN GLOBAL STORAGE ‘ML-REG' 
¢ ; 334 FIECD_SIZ = 4, ‘FIELD SIZ FOR FIELD DECLARATIONS ‘WORD_MAP* 

34; 1509 'MLCS1 FUNCTION CODES 

3S 3 1510 ‘ 

36 ; 1511 NOOP = 1, 'NOOP FUNCTION 

37 : 1512 DRV_CLR = %o'll', ‘DRIVE CLEAR FUNCTION 

38 ; 1513 RD_IN PRE = %o'21', 'READ IN PRESET FUNCTION 

39 ;- 1514 SEARCA = X%0'31', ‘SEARCH FUNCTION 

40 ; 1515 WRT_CHK = Xo'51', ‘WRITE CHECK FUNCTION 

41; 1516 write = %o'61', ‘WRITE FUNCTION 

42; 1517 read = %o'71', 'READ FUNCTION 

43; 1518 ‘ 

44; 1519 ' DELAY ARGUMENTS 

45 ; 1520 ‘ 

46 ; 1521 ONE_US = 1, 'ONE MICRO SECOND DELAY 

47; 1522 FRTY_US = 40 'FORTY MICRO SECOND DELAY 

48 ; 1523 TWO_TH_US = 3000: 'TWO THOUSAND MICRO SECOND DELAY 

49 ; 1524 

50 ; 1525 ! 

$1; 1526 |! FIELD DECLARATIONS 

oe 3 1527 ! 

53; 1528 

54: 1529 field 

4 : 130 WORD_MAP = 'MAPS GLOBAL STORAGE "ML_REG' INTO REGISTER PERSONALITIES 

e set 

57: 1532 REGISTER_ADD = (0, 0, 16, 0), ‘REGISTERS ADDRESS 

58; 1533 FORCE_HI™= (1, 0, 16, 0), 'REGISTERS FORCED HI BITS 

59 ;: 1534 FORCE-LO = (2, 0, 16, 0) 'REGISTERS FORCED LO BITS 

60 : 1535 pont Care = C$, 6, 16, 03 (REGISTERS IGNORE BITS 
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<0:3> 
<4:7> 
<8:11> 
<12:15> 
<16:19> 
<20:23> 
<24:27> 
<28:31> 
<32:35> 
<36:39> 


TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (1) 


SEQ 0032 


'MAPS OWN STORAGE NIB_SAVE INTO TEN FOUR BIT NIBBLES 


H 3 
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CZMLAAO ML-11 LOGIC | 
ECTION SEQ 0033 


HARDWARD TEST S 


82 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(z206) 
+i ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (2) 
85 ; 1332 ! : 

86 ; 1553 |! OWN STORAGE 

87 ; 1554 |! 

88 ; 1555 

89 ;: 1556 own 

90 ; 1557 NIB_SAVE : block (3] field (NIB_MAP) volatile, 

91 ; 1558 'STORAGE LOCATION TO SAVE NIBBLE DATA READ DURING DIAG MODE 
92 ; 1559 HW_OR_TBL : vector [127] volatile, 'STORES HARDWARE ORED PROM DATA DURING PROM OR FUNC TEST 
93 ; 1560 PTBL_PIR : volatile, 'HARDWARE P-TABLE POINTER 

94 ; 1561 OP_NUM_ARR : volatile, ‘OPERATORS NUMBER OF ARRAY INPUTTED 

95 ; 1562 ARR_INC : volatile, 'ARRAY SELECTION INCREMENT VALUE 

96 ; 1563 GOOB_ BLK : volatile, 'GOOD BLOCK ADRS 

97 ; 1564 PAR_BIS : volatile, ‘PARITY DISABLE FLAG 

98 ; 1565 CHIP SIZ : volatile, ‘MOS RAM CHIP SIZE 

99; 1566 LST_BLK : volatile, 'LAST ADDRESSABLE BLO 

100 ; 1567 ARR_16 : volatile, 'MAX NUMBER OF ARRAY ALLOWED 

101 ; 1568 LST-ARR : volatile 'LAST ADDRESSABLE ARRAY 

102 ; 1569 10. BUF : vector £286) volatile, iINPUT OUTPUT BUFFER 

103 ; 1570 STK_OFF : vector (9, byte] volatile, 'STACK OFFSET STORAGE LOCATION 

104 ; 1571 stack : vector (198, byte) volatile, ‘STACK OF 198 BYTE LOCATIONS 

105 ; 1572 PD_TEMP : bitvector (16) volatile, 'PROM DATA STORAGE LOCATION DURING DIAG MODES 
106 ; 1573 w_C_SIZE : volatile, ‘STORES WORD COUNT FOR 16K OR 64K XFERS 

107 ; 1574 RAS_INC : volatile, 'ROW ADRS STROBE INCREMENT 

108 ; 1575 WT_BATA : volatile, 'SAVE WRITE DATA DURING REG READ WRITE TEST 
109 ; 1576 RD-DATA : volatile, 'SAVE READ DATA DURING REG READ WRITE TEST 

110 ; 1577 DRIVE_TYPE : volatile, ‘DRIVE TYPE STORAGE LOCATION 

11; 1578 REG_INIT_FLG; 'FLAG TO DETECT DOING REG INIT TEST 

112 ; 1579 

113; 1580 EQUALS; 

4; 1581 '<BLF/PAGE> 
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C TEST MACRO M1113 23-0CT-80 09:11 
10N 
22-0ct-1980 10:47:44 TOPS=20 Bliss=-16 V2(206) 
22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI1.2 (3) 
1582 ! 
1583 |! GLOBAL STORAGZ 
1584! 
1585 '<BLF/NOFORMAT> 
1586 
“1587 global 
1588 
1589 4 
1590 ! THIS STRUCTURE IS LOADED DURING THE INIT CODE AND 
133 WILL CONTAIN THE ML11 REGISTER PERSONALITIES AND BUS ADRS. 
1593 i THE REGISTERS FORCED HI AND FORCED LOW BITS ARE a 
1ane | INTO THE STRUCTURE USING THE ATTRIBURE ‘PRESET 
1596 ML REG: blockvector CNUM_OF_REG,FIELD_SI2Z] field(wORD_MAP) 
1597 “preset ( 
1598 CO,FORCE_HIJ = Xo' 004000", 'MLCS1 
1599 CO,FORCE_LO) = %0'173701' 
1eht CO,DONT_CARE] = Xo' 160200". 
1602 C(5,FORCE_LOJ = %0'25077', 'MLOS 
1603 (5,FORCE_HI] = %0'010600', 
+42 C5,DONT_CARE] = %0'000100', 
ens (6,FORCE_LOJ = %0'014620', 'MLER 
i C7,DONT_CAREJ] = %0'177400', 'MLAS 
HY (8,FORCE_LOJ = %0'100000', 'MLPA 
112 C10,FORCE_LOJ = %0'000020', 'MLMR 
7 [10,DONT_TARE] = %0'177400', 
1615 C11,FORCE_HI) = %0'000110', 'MLOT 
Hy by {C11,FORCE-LO)] = %0'177666', 
‘tie (11,DONT_TARE] = %0'000001', 
Hy 2 C13,FORCE_LO) = %0'140300', 'MLE1 
Hy 24 C14,FORCE_LO)] = %0'100300', 'MLE2 
1623 C17,FORCE_LOJ = %0'010000', 'MLEE 
1624 [21,DONT CARE] = %0'000000' 'MLCS2 
1625 volatile, 
1es6 
1627 RH_ADD, 'RH CONTROLLER BASE ADDRESS 
1628 RH_TYP, 'RH CONTROLLER TYPE 
1629 RH_VEC, 'RH CONTROLLER ig ADDRESS 
1630 ML_LUN, ‘ML LOGICAL UNIT N 
th ML_DUT; 'ML DRIVE NUMBER 
1635 '<BLF /FORMAT> 


SEQ 0034 


CZMLAAO ML=11 LOGIC TEST 
'HARDWARD TEST SECTION 


172 ;ML4 

173; 

174 : 

175 ; 1634! 
176: 1635 |! MACRO DEFINITIONS 
177 ; 1636 =! 
178 ; 1637 
179 ; 1638 macro 
180 ; 1639 |! 
181 ; 1640 |! REGISTER NAMES: 
182 ; 1641! 
183 ; M 1642 MLCS1 
184 ; 1643 =. ML REG 0, REGISTER_ADDJ%, 
185 ; M 1644 ALwc = 
186 ; 1645 .ML_REG C1, REGISTER_ADDJ%, 
187 ;: M 1646 ALBA 
188 ; 1647 ML REG (2, REGISTER_ADDJ%, 
189 ; M 1648 ALDA 
190 ; 1649 ML eG (3, REGISTER_ADDJ%, 
191 ; M 1650 ALCS 
192 ; 1651 =. ML_REG [4,REGISTER_ADD%, 
193 ; M 1652 MLDS = 
194 ; 1653 .ML_REG [5,REGISTER_ADDJ%, 
195 ; M 1654 ALER = 
196 ; 1655 .ML_REG (6,REGISTER_ADDJ%, 
197 ; M 1656 MLAS = 
198 ; 1657 = .ML_REG [7,REGISTER_ADDJ2, 
199 ; M 1658 ALLA = 
200 ; 1659 .ML_REG (8,REGISTER _ADDI2, 
201 ; M 1660 ALPA = 
202 : 1661 .ML_REG (8, REGISTER_ADDJX%, 
203 ; M 1662 ALDB = 
204 ; 1663 .ML_REG [9,REGISTER_ADDJX, 
205 ; M 1664 ALMR = 
206 : 1665 .ML_REG [10,REGISTER_ADDJ%, 
207 ; M 1666 ALOT = 
208 : 1667 .ML_REG (11, REGISTER_ADDJ%, 
209 ;: M 1668 ALSN = 
210 ; 1669 .ML_REG [12,REGISTER_ADDJ%, 
211: M 1670 ALE1 = 
212 ; 1671 .ML_REG (13,REGISTER_ADDJ%, 
213; M 1672 ALE2 = 

. 214; 1673 =. ML_REG [14,REGISTER_ADDJ%, 

215 ; M 1674 ALD1 = 
216 ; 1675 = .ML_REG [15,REGISTER_ADDJ2, 
217 ; M 1676 ALD 
218 ; 1677 = .ML_REG (16,REGISTER_ADDJ%, 
219 ; M 1678 ALEE = 
220 ; 1679 =.ML_REG (17, REGISTER_ADDJ2, 
221; M 1680 ALEL = 
eee : 1681 -ML_REG (18, REGISTER_ADDJ2, 
223; M 1682 ALPD = 
224 ; 1683 .ML_REG [19,REGISTER_ADDJ2, 
225 ; M 1684 ALBAE = 
226 ; 1685 .ML_REG [20,REGISTER_ADDJ%, 


po 
| 
| 
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SEQ 0035 


TOPS=20 Bliss-16 V2(206). 
PA:<NEALE>BL2ML4.BLI.2 (3) 


‘CONTROL AND STATUS REGISTER 1 
WORD COUNT REGISTER 
'UNIBUS ADDRESS REGISTER 
(‘DESIRED ADDRESS REGISTER 
‘CONTROL AND STATUS REGISTER 2 
'DRIVE STATUS REGISTER 

'ERROR REGISTER 

‘ATTENTION SUMMARY REGISTER 
'LOOK AHEAD REGISTER 

'PROM ADDRESS REGISTER 

'DATA BUFFER REGISTER 
'MAINTENANCE REGISTER 

‘DRIVE TYPE REGISTER 

'SERIAL NUMBER REGISTER 

'ECC CRC WORD REGISTER 1 

'ECC CRC WORD REGISTER 2 

(DATA DIAGNOSTIC REGISTER 1 
'DATA DIAGNOSTIC REGISTER 2 
'ECC ERROR REGISTER 

'ECC ERROR LCOATION REGISTER 
'PROM DATA REGISTER 

'BUS ADDRESS EXTENSION REGISTER 


poo 


kK 3 
CZMLAAO ML-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 52 
HARDWARD TEST SECTION SEQ 0036 


228 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
$e 3 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (3) 
231; M 1686 MLCS3 = 

$36 ; He ML _LREG (21, REGISTER_ADDJ2, ‘CONTROL AND STATUS REGISTER: 3 
234 ; 1689 !' BIT ASSIGNMENTS: 

235; 1690 ! 

236 ; M 1691 SC = 

237 ; 1692 (MLCS1)<15,1>%, 'MLCS1 BIT ASSIGNMENTS 

238 ; M 1693 TRE = 

239 ; 1694 (MLCS1)<14,1>%, 

240 : M 1695 MCPE = 

241; 1696 (MLCS1)<15, 1>%, 

242 ; M 1697 DVA 

243 ; 1698 (MLCS1)<11, 1>%, 

244 : M 1699 RDY 

245 ; 1700 (MLCS1)<7,1>%, 

246 ; ™ 1701 IE = 

247 ; . 1702 (MLCS1)<6,1>%, 

248 ; M 1703 GO = 

249 : 1704 (MLCS1)<0, 1>%, 

250 ; M 1705 ML_FUN NC = 

251; 1706 cMeeS1) <0, 6>%, 

252: M 1707 DLT = 

253; 1708 (MLCS2)<15, 1>%, 'MLCS2 BIT ASSIGNMENTS 

254 ; M 1709 

255: 1710 (MLCS2)<14, 1>%, \ 
256 : Mm 1711 Pp : 
257 ; 1712» (MLCS2)<13,1>%, : 
258 : M 1713 NED = 

259 : 1714 . (MLCS2)<12, 1>%, 

260 ; M1715. NEM = 

261 ; 1716 (MLCS2)<11, 1>%, 

262 ; M1717 PGE = 

263 ; 1718 (MLC$2)<10, 1>%, 

264 ; M1719 

265 ; 1720 (MLCS2)<9, 1>%, 

266 : M 1721 MD 

267 ; 1722 (MLCS2)<B, 1>%, 

268 ; M 1723 ORD 

269 ;: 1724 (MLCS20<7, 1>%, 

270 ; M 1725 IRD 

271 : 1726 (MLCS2) <6, 1>%, e 

272; M 1727 CLR = 

273; 1728 (MLCS2)<5, 1>%, 

274: M 1729 PAT : 

275; 1730 (MLCS2) <4, 1>%, 

276 ; Mm 1731 BAI = ” 

277: 1732 (MLCS2)<3, 1>%, 

278 ; mM 1733 V_NUM = 

279 : 1734 cmc52<0, 3>X, 

280 ; M 1735 

281 ; 1736 MLDS) 15, It, 'MLDS BIT ASSIGNMENTS 

282 ; M 1737 COMP _ERR 


= 
re” 


Te 


r 


eh 
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LOGIC 1 

'HARDWARD TEST SECTION SEQ 0037 
284 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 v2(206) 
| +H 3 22-0ct-1980 10:45:32 PA: <NEALE>BL2ML4.BLI.2 (3) 
287 ; 1738 (MLDS)<14,1>%, 

288 ; Mm 1739 MOL = 

289 ; 1740 (MLDS) <12, 1>%, 

290 ; M 1741 LB 

291 ; 1742 (MLDS)<10, 1>%, 

292 ;: M 1743 DPR 

293 ; 1744 (MLDS)<8, 1>%, 

294 ; mM 1745 DRY = 

295 ; 1746 (MLDS) <7, 1>%, 

296 ; M 1747 VV = 

297 ; 1748 (MLDS) <6, 1>%, 

298 : M 1749 DOCK 

299 : 1750 (MLER)<15, 19%, 'MLER BIT ASSIGNMENTS 

300 ; M 1751 UNS = 

301 ; 1752 (MLER)<14,1>%, 

302 ;: mM 1753 OPI = 

303 ; 1754 (MLER)<13,1>%, 

304 ; M 1755 IAE = 

305 ; 1756 (MLER)<10, 1>%, 

306 ;: M 1757 AOE = 

307 ; 1758 (MLER) <9, 1>%, 

508 ; Mm 1759 ECH 

"309 ; 1760 (LER) <6, 1>%, 

310 ; M 1761 DPA 

311; 1762 CRLER) <S, 1>%, 

312 ; M 1763 CPA 

515 ; 1764 (MLER) <3, 11>. 

314 ; M 1765 RMR 

315 ; 1766 (NLER) <2, 1>%, 

516 ; M 1767 ILR = 

317 : 1768 MLER) <1, 1>%, 

318‘; M 1769 

319 ; 1770 (MLER) <0, 1>%, 

320 ; 4 1771 

321 ; 1772 HLA C10, >t, 'MLMR BIT ASSIGNMENTS 

322 ; M 1773 NUM_ARR = 

323 ; 1774 HART “Sot. 

324 ; 4 1775 REF 

325 ; 1776 CALAN? 1D, 

326 ; M 1777 PROM 

327 ; 1778 CHL 26 Dt, 

328 ; M1779 PROM 

329 ; 1780 MLM) SS ir, 

330 ;: M 1781 DAT 

331 ; 1782 cneanTeee 14, 

332 ; M 1783 DAT_DM 

333 ; 1784 (MLMRY<3, >t, 

334 ; Mm 1785 DCK_EN 

335; 1786 (MLMR)<2, 14, 

336 ; 4 1787 

337 ; 1788 (MLMR)Z1,1>%. 

338 ; mM 1789 ECC_DM = 
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SEQ 0038 
; 22*0ct-1980 10:47:44  TOPS-20 Bliss-16 v2(206) 
32=0ct-1980 10:45:32  PA:<NEALE>BLOML4.BLI.2 (3) 
mena, 
(MLDIT<O, 194, 'MLDT BIT ASSIGNMENTS 
(MLEEY<15,1>%, 'MLEE BIT ASSIGNMENTS 
SGL_ERR = 
(MLEES<14,1>%, 
CRC_ERR = 
_ OLEES<13, 19%, 
! MISCELLANEOUS MACRO DEFINITIONS: 
" -1$_SET = 


'TEST IF BIT IS EQUAL 1 


eql 1%, 
IS_NOT_SET = 
'TEST IF BIT IS EQUAL 0 


eql OX, 
REG_ADRS = 
ER. EE ETT LU 


'READS REGISTERS ADDRESS FROM PERSONALITY TABLE 


'READS REGISTERS FORCED HI BITS FROM PERSONALITY TABLE 
Pe, EEE < SOR PONE Ee 


'READS REGISTERS FORCED LO BITS FROM PERSONALITY TABLE 
nee” >" ieee tei 


'READS REGISTERS DONT_CARE BITS FROM PERSONALITY TABLE 
ML_REGCL. index ,DONT_CAREJ%, 
MLE2_MASK = 


'READS MLE2 DONT CARE MASK EITHER DATA DIAG OR ECC CIE REG 
ML_REGC14,DONT_CAREJ2, 
WRT_MASK = 
'GENERATE MASK DATA PATTERN USING REGISTER FORCE LO, HI AND IGNORE B 
—_ -LO) and (.HI or .TST_PAT))&%, 


'CLEAR MASS BUS RESTORE DRIVE NUMBER 
CLR = ONE; DRV_NUM = .ML_DUT2, 
'<BLF/SYNONYM IS_SET = EQC 1 * > 
‘<BLF/SYNONYM IS_NOT_SET = EQL 0 * > 


i DIAGNOSTIC DATA REGISTER MACROS 
RD_LNG_WRD = 
D1_TEMP = .MLD1; 
D27TEMP = .MLD2: 
E2-TEMP = .MLE2k, 
WRT_LNG_WRD = 


MLD1 = .D1_TEMP; 


'READ DATA DIAG REGS INTO BIND LOCATIONS 


‘LOADS DATA DIAG REG WITH CONTENTS OF BIND LOCATIONS 


Sa had a of 
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HARDWARD TEST SECTION ; SEQ 0039 
396 ;ML4 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
$5 ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (3) 
399 ; M 1842 MLD2 = .D2_TEMP; 

400 ; 1843 MLE2 = .£2-TEMPS; 

401 ; 1844 , 

402 ; 1845 !<BLF/PAGE> 

403 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Biiss-16 V2(206) 
ins : 22-0ct-1980 10:45:32 PA: <NEALE>BL2ML4.BLI.2 (4) 
406 ; 1846 =! 

407 ; 1847 |! BIND DECLARATIONS 

408 ; 1848 ! , 

409; + 1849 

410; > 1850 bind 

411 ; 1851! 

412 ; 1852 ! ERROR DATA MAPPING FORMATS 

413 ; 1853! 

414 ; 1854 FMT_1 = uplit (Zasc iz’ ZAWROTE : Z06%A READ: XO6%NZN') 

415 ; 1855 FMT_2 = uplit (Zasciz'ZAGOOD DATA: XO6%A BAD DATA: %O6%A XOR: %O06%NZN"), 
416 ; . 1856 FMT_3 = uplit (Zasciz'ZADRIVE SN: ZO6%NZN') 

417 ; \ 1857 FMT_4 = uplit (Zasciz'ZABIT IN ERROR: LO6XNEN' 

418 ; 1858 FMT_5 = uplit (%asciz'ZAGOOD NIB DATA: %02%A aap NIB DATA: %02%A NIB POS: %042NZN'), 
419 ; 1859 FMT_6 = uplit (Zasciz'ZANIB IN ERROR: aa "?, 

420 ; 1860 FMT_7 = uplit (Zasciz'ZAFAILED AT: ZO6ZNZN') 

421 ; 1861 FMT~8 = uplit (Zasciz'XAREPLACE ARR MOD: x2Enan" ), 

422 ; 1862 FMT_9 = uplit (Zasciz'ZAFAILED AT DSA: Z%O6%NZN') 

423 ; 1863 FMT_10 = uplit (Zasciz'ZABIT<15:10>: ZB6RA BIT <9: _ 4B10%NIN'), 

426 ; 1864 FMT_11 = uplit (Zasciz'ZAFAILING REG ADRS: moe pean” > 

425 ; 1865 FMT_12 = uplit (Zasciz*ZAFAILING FUNC: Z%O62NZN') 

426 ; 1866 FMT_13 = uplit (Z%asciz’ ZAOFF_ SET CNT FOR NIB : 4D2 %A = %D2 ZNIN'), 

427 ; 1867 FMT_14 = uplit (Zasciz'ZAWROTE: 2D2%A READ: %D2%NZN') 

428 ; 1868 FMT_15 = uplit (Zasciz*ZANIBBLES XFERED BEFORE ERROR: xN' 

429 ; 1869 FMT_16 = uplit (Zasciz'ZAFAILING REG: Z06%A GOOD DATA: LOStA. BAD DATA: %06%N%N"), 
430 ; 1870 FMT_17 = uplit (Zasciz'ZNZADIAGNOSING UNIT ZO1ZNZN"), 

ti $ a , FMT_18 = uplit (Zasciz*ZATIMED OUT DURING MBUS YO2HA FUNCZNZN'), 

433 ; 1873 ! ERROR MESSAGE MAPPING FORMATS 

434 ; 1874! 

435 ; 1875 ONE_FMT = uplit (Zasciz'ZTIN') 

436 ; 1876 TWO_FMT = uplit (Zasciz' ATZTIN') 

437 ; 1877 THR_FMT = uplit (Zasciz’ ATLTRTEN' ). 

438 ; 1878 FOR_FMT = uplit (Zasciz’ ATLTXTXTEN') 

439 ; 1879 FIV_FMT = uplit (Z%asciz’ ATLTLTLTXTENS ). 

440 ; 1880 SIX_FMT = uplit (Zasciz' ATLTXTATATATAN’ ie 

441 ; 1881 SEV_FMT = uplit (Zaeciz' LTXTRIATRIXTRTEN’ d 

442 ; 1882 EIG_FMT = uplit (Kasciz*RIZTRIRTRIZTRIRTIN ). 

443; 1883 NIN_FMT = uplit (Zasciz' ATAIATLTATLTLTLTXTAN’ ). 

444 ; 1884 TEN_FMT = uplit (Lasciz’ST212 1212121212 12TZTEN: ) 

ut ; H+ +44 , ELV FMT = uplit (Zasciz' AIATLIATAIATAIXTLTXTATAN'), 

447 ; 1887 ! DIAGNOSTIC VOCABULARY 

448 ; 1888 =! - 

449 ; 1829 : 

450 ; 1890 ' WORDS 

451 ; 189i ‘ ; , 

452 ; 1892 WRD_1 = uplit (Zasciz’ GQ"), 


CZMLAAO ML-11 LOGIC TEST 


‘HARDWARD TEST SECTION 


| 


— 


; 
Ps 
‘ 
‘ 
: 


4 
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nereow 


uplit 
uplit 
uplit 
uplit 
uplit 


(Zasciz’' DRV_RDY'), 
(Rasciz' ILF*) 


*y, 
(Zasciz’ BAD'), 
(Zasciz' GOOD'), 


SEQ 0040 


C 4 
CZMLAAO ML=-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 56 
‘HARDWARD TEST SECTION SEQ 0041 
459 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
re ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (4) 
462 ; 1898 WRD_7 = uplit (Zasciz' PARITY NOT"), 
463 ; 1899 WRD_8 = uplit (%asciz' GENERATED'), 
464 ; 1900 WRD_9 = uplit (Zasciz’ DETECTED’), 
465 ; 1901 WRD_10 = uplit (Zasciz’ ERRORS'), 
466 ; 1902 WRD_11 = uplit (%asciz’ AFTER"), 
467 ; 1903 WRD_12 = uplit (Zasciz' DURING'), 
468 ; 1904 WRD_13 = uplit (Zasciz’ AT‘), 
469 ; 1905 WRD_14 = uplit (Zasciz’ FAILURE"), 
470 ; 1906 WRD_15 = uplit (Xasciz’ ATA‘), 
471 ; 1907 WRD_16 = uplit (Zasciz’ ATIN'), 
472 ; 1908 WRD_17 = uplit (%asciz' WRITING"), 
473 ; 1909 WRD_18 = uplit (Zasciz' vv"), 
474; 1910 WRD_19 = uplit (Zasciz' FUNC’), 
475 ; 1911 WRD_20 = uplit (Xasciz’ TRE'), 
476 ; 1912 WRD_21 = uplit (Xasciz' RMR'), 
477 ; 1913 WRD_22 = uplit (Zasciz' EXCESSIVE"), 
478 ; 1914 WRD_23 = uplit (%asciz’ MBUS'), 
479 ; 1915 WRD_24 = uplit (Xasciz’ DATA’), 
480 ; 1916 WRD_25 = uplit (%asciz’ CONTINUITY"), 
481 ; 1917 WRD_26 = uplit (Zasciz’ AOE"), 
482 ; 1918 WRO_27 = uplit (Z%asciz’ LBT"), 
483 ; 1919 WRD_29 = uplit (Zasciz' PREMATURLY'), ‘ 
484 ; 1920 WRD_30 = uplit (Zasciz’ IAE'), : 
485 ; 1921 WRD_31 = uplit (%asciz’ INCREMENT'), 
486 ; 1922 WRD_32 = uplit (Zasciz' WITH'), 
487 ; 1923 WRD_33 = uplit (Zasciz’ UV"), 
488 ; 1924 WRD_34 = uplit (%asciz’ UNS"), 
489 ; 1925 WRD_35 = uplit (Zasciz’ PROM'), 
490 ; 1926 WRD_36 = uplit (Zasciz’ OR"), 
491 ; 1927 WRD_37 = uplit (Zasciz’ SELECT"), 
492 ; 1928 WRD_38 = uplit (Zasciz’ REG"), P 
493 ; 1929 WRD_39 = uplit (Zasciz’ UNIQUE"), 
4% ; 1930 WRD_40 = uplit (Zasciz’ 14°), 
495 ; 1931 WRD_41 = uplit (ZXasciz' NIBBLE CNT'), 
496 ; 1932 WRD_42 = uplit (Z%asciz' GTR"), 
497 ; 1933 WRD_43 = uplit (Zasciz’ WHILE’), 
498 ; 1934 WRD_44 = uplit (Zasciz’ TRE’), 
499 ; 1935 WRD_45 = uplit (Zasciz’ INITIAL"), 
500 ; 1936 WRD_46 = uplit (Zasciz’ OFF SET"), 
501 ; 1937 WRD-47 = uplit (Zasciz’ COUNT’), 
502 ; 1938 WRD_48 = uplit (%asciz’ DELAY’), 
503 ; 1939 WRD_49 = uplit (Zasciz’ TESTS"), 
504 ; 1940 WRD_50 = uplit (Zasciz* ADRS‘), 
505 ; 1941 WRD_51 = uplit (Zasciz’ COUNTER’), 
506 ; 1942 WRD_52 = uplit (Zasciz' REG'), 
507 ; 1943 WRD_55 = uplit (Zasciz’ TESTED), 
508 ; 1944 WRD_54 = uplit (Zasciz’ NIBBLE"), 
509 ; 1945 WRD_55 = uplit (Zasciz’ ALL"), 
510 ; 1946 WRD_56 = uplit (Zasciz' TEST’), 
‘$11; 1947 WRD_57 = uplit (Zasciz’ XFERED’), 
512 ; 1948 WRD_58 = uplit (Zasciz’ NIBBLES"), 
513 ; 1949 RD_59 = uplit (Zasciz' SC‘), 
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22-Oct-1980 10:47:44 
22-0ct-1980 10:45:32 

WRD_60 = uplit (%asciz’' MULTIPLEXER’), 

WRD “61 = uplit (%asciz' UNEXPECTED’) 

| PHRASES 

PHR_1 = uplit (Zasciz' BIT NOT SET'), 

PHR_2 = uplit (%asciz' BIT NOT CLR’), 

PHR_3 = uplit (Zasciz’ NO py tet AFTER 1.5 US"), 

PHR_4 = uplit (Zasciz' DATA ERRORS'), 

PHR_5 = uplit (asciz’ BIT iris ), 

PHR_6 = uplit (Zasciz’' BIT CLR"), ‘ 

PHR_7 = uplit (Zasciz’ OF oiet ORIVES'), . 

PHR_8 = uplit (Zasciz' CLASS A‘), 

HR_9 = uplit (Zasciz’ CLASS B"), 

PHR_10 = Voplit (Zasciz’ TO FIND'), 

; FUNCTIONS 

FNC_1 = uplit (Zasciz’ MEM SIZING'), 

FNC_2 = uplit (%asciz’ NOOP'), 

FNC_3 = uplit (Zasciz’ DRV'), 

FNC_4 = uplit (Zasciz’ WRITE CHECK"), 

FNC_5 = uplit (Rasciz' Bist, 

FNC_6 = uplit (Zasciz’ READ") 

FNC_7 = uplit (Rasciz' CLEAR’) 

FNC_8 = uplit (Zasciz' COMP ERROR" ), 

FNC_9 = uplit (Zasciz' SYS CLR'), 

FNC_10 = uplit (Xasciz’ SEARCH"), 

FNC_11 = uplit (Zasciz’ READ-IN~ PRESET"), 

FNC_12 = uplit (Rasciz’ eH ” 

FNC_13 = uplit (Zasciz* ABORT'), 

FNC_14 = uplit (Zasciz’ ARR RD WRT"), 

FNC_15 = uplit (Zasciz’ GOOD BCk'), 

FNC_16 = uplit (Zasciz’ REFRESH’), 

FNC_17 = uplit (Zasciz’ ARRAY"), 

FNC_18 = uplit (%asciz' RAM-BUS"), 

FNC_19 = uplit (Zasciz' OVERFLOW’), 

FNC_21 = uplit (Zasciz’ CHK SUM’), 

FNC_22 = uplit (Zasciz' LAST BLK"), 

FNC 23 = uplit (Zasciz' INITIALIZE *) 

REGISTERS 

REG_1 = uplit (Zasciz' MLCS1" Be 

REG_2 = uplit (Zasciz' MLDS"), 

REG_3 = uplit (Zasciz’ MLER'), 

REG_4 = uplit (Zasciz' MLMR'), 

REG_5 = uplit (Zasciz’ MLAS‘), 

REG_6 = uplit (Zasciz' MLDA'), 

REG_7 = uplit (Zasciz’ MLDT') 

REG_8 = uplit (Zasciz’ MLPA’), 

REG 9 = uplit (Zasciz* MLSN"), 


TOPS=20 Bliss-16 V2(206) 
PA: <NEALE>BL2ML4.BLI.2 (4) 


SEQ 0042 


| | | | £4 
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571 ;ML4 22-0¢t-1980 10:47:44 TOPS=20 Biiss-16 V2(206) 
Ae ; 22-Oct-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (4) 
574 ; 2002 REG_10 = uplit (asciz' MLE} 
575 ; 2003 REG_11 = uplit (Zasciz’ MLE2"), 
576 ; 2004 REG_12 = uplit (Zasciz’ MLDI"), 
| 577: 2005 REG-18 = uplit (Kasciz’ MLD2"), 
578 ; 2006 REG_14 = uplit (Rasciz' MLEE'). 
579 ; 2007 REG_15 = uplit (Zasciz’ MLEL'), 
580 ; 2008 REG_16 = uplit (Xasciz’ MLPD'), 
581 ; 2009 ' 
| +44 ; it : MODULES IN ERROR MESSAGES 
584 ; 2012 ASYNC = uplit (Rasciz' ASYNCHRONOUS MODULE bye a ae 
585 ; 2013 SYNC = uplit (%asciz'"SYNCHRONOUS MODULE FAILURE' 
586 ; 2014 ARR_DAT = uplit (Zasciz*ARRAY DATA MODULE F ALLURE ! 
587 ; 2015 mere “ARR = uplit (Rasciz' MEMORY ARRAY MODULE FAYLURE® ir 
588 ; 2016 INTER = uplit (Xasciz' INTERMEDIATE DIAGNOSTIC MESSAGE"), 
ro ; ate , _ TRBLE _L00 = uplit (%asciz' TROUBLE SHOOT LOOP ERRORS'), 
591 ; 2019 |! DATA DIAGNOSTIC REGISTER SAVE LOCATIONS 
592 ; 2020 ! 
593 ; 2021 D1_TEMP = NIB_SAVE, 
594 ; 2022 D2_TEMP = NIB_SAVE (1, 0, 16, 01, 
595 ; 2023 E2_TEMP = NIR_SAVE (2, 0, 16, 0); 
596 ;: 2024 
597 ; 2025 !<BLF/PAGE> 
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routine LOAD_STACK (STK_PTR, NIB_PTR) : novalue 


begin 


144 


| FUNCTIONAL DESCRIPTION: 
LOAD STACK TAKES GOOD NIBBLE DATA 
FOUND IN THE STRUCTURE 'NIB_SAVE' 
AND STORES IT INTO THE STRUCTURE 
"STACK' REWRITING ANY BAD NIBBLE 
Mi LOCATIONS WITH GOOD NIBBLE 


FORMAL PARAMETERS: 
STK_PTR 


POINTS TO PRESENT DEPTH OF THE 
STACK’ WHERE PRESENT GOOD NIBBLE 
DATA IS TO BE STORED. 


i NIB_PTR 
POINTS TO CURRENT NIBBLE POSITION BEING 
MANIPULATED. 


IMPLICIT INPUTS: 
STACK 


VECTOR OF 198 BYTE LOCATIONS WHERE 
GOOD NIBBLE DATA IS STORED 

DURING DIAGNOSTIC MODE READS, AFTER 
BAD NIBBLE LOCATIONS HAVE BEEN 
STRIPPED AWAY. | 


STK_OFF 
vector of 9 byte LOCATIONS WHICH 
STORES AWAY A BAD NIBBLE OFF_SET 
COUNT FOR EACH NIBBLE POSITION 
i NIB_SAVE 
BLOCK OF 3 WORDS TO STORE THE 
DATA FOUND IN MLD1, MLD2 AND 
MLE2 AFTER A DIAGNOSTIC MODE READ. 
IMPLICIT OUTPUTS: 
ste ACK" LOADED WITH GOOD NIBBLE 
COMPLETETION CODES: NONE 


SIDE EFFECTS: NONE 


case .NIB_PTR from 0 to 8 of 


‘SELECT NIBBLE DATA TO BE LOADED INTO THE STACK 


4u TOPS=20 Bliss-16 V2(206) | 
:32 PA:<NEALE>BL2ML4.BLI.2 (6) 


SEQ 0044 
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655 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
628 ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (6) 
658 ; 2078 set 

659 ; 2079 
660 ; 2080 (0) : 
661 ; 2081 stack C(.STK_PTR = (.STK_OFF C.NIB_PTRJ))J = .NIB_SAVE CNIB_0); 

| 662 ; 2082 ‘LOAD NIBBLE BATA 0 INTO SELECTED STACK LOCATION 
663 ; 2083 
664 ; 2084 C1]: 
665 ; 2085 stack C(.STK_PTR = (.STK_OFF C.NIB_PTRJ))] = .NIB_SAVE (NIB_1 
666 ; 2086 ‘LOAD NIBBLE BATA 1 INTO sivecten STACK LOCATION 

667 ; 2087 
668 ; 2088 (2) : 
669 ; 2089 stack C(.STK_PTR = (.STK_OFF C.NIB_PTRJ))J = .NIB_SAVE (NIB_2 
670 ; 2090 'LOAD NIBBLE BATA 2 INTO ivecten STACK LOCATION 
671: 2091 
672 : 2092 (3): 
673 : 2093 stack C(.STK_PTR - (.STK_OFF C.NIB_PTRJ))] = .NIB_SAVE CNIB 
674 ; 2094 ‘LOAD NIBBLE BATA 3 tie sivecren STACK LOCATION 
675: 2095 
676 ; 2096 (4): 
677 ; 2097 stack C(.STK_PTR.= (.STK_OFF C.NIB_PTR]))] = .NIB_SAVE CNIB_4 
678 : 2098 ‘LOAD NIBBLE BATA 4 INTO divecten STACK LOCATION 
679 : 2099 
680 ; 2100 (5) : 
681 ; 2101 stack C(.STK_PTR - (.STK_OFF C.NIB_PTRJ))] = .NIB_SAVE CNIB 
682 ; 2102 ‘LOAD NIBBLE BATA 5 Mes skvectes STACK LOCATION 
683 ; 2103 
684 ; 2104 [6] : 
685 : 2105 stack C(.STK_PTR - (.STK_OFF C.NIB_PTR]))] = .NIB_SAVE CNIB_6 
686 : 2106 ‘LOAD NIBBLE BATA 6 INTO” sivectes STACK LOCATION 
087 ; 2107 
688 ; 2108 (7]: 
689 ; 2109 stack C(.STK_PTR = (.STK_OFF C.NIB_PTRJ))] = .NIB_ SAVE _CNIB_7 
Hs ; $8 'LOAD NIBBLE BATA 7 INTO tvectes STACK LOCATION 
692 ; 2112 (8) : 
693 : 2113 stack C(.STK_PTR - (.STK_OFF C.NIB_PTRJ))J = .NIB_SAVE CNIB_8 
694 : 2114 ‘LOAD NIBBLE BATA 8 INTO dvectes STACK LOCATION 
695 : 2115 tes; 
696 ;: 2116 
697 ; 2117 end; 
701 
702 
703 
704 004164 045 101 127 P.AAA: .ASCII /%AW/ 

705 004167 122 117 124 eASCII = /RGT/ 

706 004172 105 072 040 ASCII /E: / 
707 004175 045 117 066 ASCII = /%06/ 

j 

| 
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74 4347 
748 004352 
749 004355 
750 004360 
751 004363 
752 004366 
753 004371 
754 004374 
755 004377 


762 004424 
763 004427 
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/6%N/ 
/%AG/ 


SEQ 0046 
744 TOPS 
:32 PA:< 
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777 004465 
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/%AN/ 


/RAF/ 
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SEQ 0047 
44 TOPS 
:32 PA:< 
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I 
TION SEQ 0048 


821 sML4 22-0ct-1980 10:47:44 TOPS 
Bs§ ; 22-0ct-1980 10:45:32 PA:< 
824 004661 040 040 102 ASCII / B/ 
825 004664 111 124 074 ASCII /1T</ 
826 004667 071 072 060 ASCII = /9:0/ 
827 004672 076 072 040 ASCII />: / 
828 004675 04 102 061 ASCII /%B1/ 
829 004700 060 045 116 ASCII = /O%N/ 
830 004703 045 116 000 -ASCII /%N/<00> 
831 004706 045 101 106 P.AAK: .ASCII AF / 
832 004711 101 111 114 eASCII = /AIL/ 
833 004714 111 116 107 sASCII /ING/ 
834 004717 040 122 105 -ASCII / RE/ 
835 004722 107 040 101 eASCII /G A/ 
836 004725 104 122 123 eASCII = /DRS/ 
837 004730 072 040 045 ASCII /: %/ 
838 004733 117 066 045 ASCII /06%/ 
839 004736 116 045 116 ASCII = /NEN/ 
840 004741 000 ASCII <00> 
841 004742 045 101 106 P.AAL: .ASCII /2%AF/ 
842 004745 101 111 114 eASCII /AIL/ 
843 004750 111 116 107 -ASCII /ING/ 
844 004753 040 106 125 ASCII / FU/ 
845 004756 116 103 072 eASCII /NC:/ 
846 004761 040 045 117 eASCII / %0/ 
847 004764 066 045 116 -ASCII 62N/ 
848 004767 045 116 000 ASCII /%N/<00> 
849 004772 040 045 101 P.AAM: .ASCII] / %A/ 
850 004775 117 106 106 eASCII /OFF/ 
851 005000 137 123 105 ASCII /_SE/ 
852 005003 124 040 103 ASCII /T C/ 
853 005006 116 124 040 ASCII /NT / 
854 005011 106 117 122 ASCII = /FOR/ 
855 005014 040 116 117 eASCII / NI/ 
856 005017 102 040 072 ASCII /B :/ 
857 005022 040 045 104 ASCII / %D/ 
858 005025 062 040 045 ASCII = /2 %/ 
859 005030 101 040 075 ASCII /A = 
860 005033 040 04 104 ASCII / %0/ 
861 005036 062 04 045 ASCII /2 %/ 
862 005041 116 045 116 ASCII = /NEN/ 
863 005044 000 000 -ASCII <00><00> 
864 005046 045 101 127 P.AAN: .ASCII /2AW/ 
865 005051 122 117 124 -ASCII /ROT/ 
005054 105 072 040 ASCII /E: / 
867 005057 045 +104 06 ASCII /2%02/ 
868 005062 045 101 040 ASCII /2A / 
86 5 040 040 040 ASCII / / 
870 005070 122 105 101 ASCII = /REA/ 
871 005073 104 072 040 ASCII /D: / 
872 005076 045 104 062 ASCII /%D2/ 
873 005101 045 116 045 ASCII /2%N%/ 
874 005104 116 000 eASCII /N/<00> 
875 005106 045 101 116 P.AAO: .ASCIi /2AN/ 


zo 
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| 877 iML4 | 22-0ct-1980 10:47:44 TOPS | 
| a5 : 22-0¢t-1980 10:45:32 PA:< | 
880 005111 111 102 102 -ASCII /1BB/ 
881 005114 114 105 123 sASCII /LES/ 
882 005117 040 130 106 sASCII / XF/ 
883 005122 105 122 105 sASCII «= /ERE/ 
884 005125 104 040 102 -ASCII /D B/ 
885 005130 105 106 117 sASCII = /EFO/ 
886 005133 122 105 040 sASCII /RE / 
887 005136 105 122 122 eASCII «= /ERR/ 
888 005141 117 122 072 eASCII /OR:/ 
889 005144 040 045 104 sASCII = / %D/ 
890 005147 063 045 116 <ASCII = /3%N/ 
891 005152 000 000 .ASCII <00><00> 
892 005154 045 101 106 P.AAP: .ASCII /%AF/ 
893 005157 101 111 114 eASCII = /AIL/ 
894 005162 111 116 107 eASCII = /ING/ 
895 005165 040 122 105 sASCII / RE/ 
896 005170 107 072 040 ASCII /G: / 
897 005173 045 117 066 -ASCII § /%06/ 
898 005176 045 101 040 eASCII /%A / 
899 005201 107 117 117 .ASCII /GO0/ 
0 005204 104 040 104 -ASCII /D D/ 
901 005207 101 124 101 eASCII = /ATA/ 
902 005212 072 040 045 ASCII /: %/ 
903 005215 117 066 045 .ASCII §=/06%/ 
005220 101 040 102 -ASCII /A B/ 
905 005223 101 104 040 ASCII /AD / 
906 005226 104 101 124 ASCII /DAT/ 
907 005231 101 072 040 ASCII /A: / 
908 005234 045 117 066 eASCIi =/%06/ 
y09 005237 045 116 045 sASCII = /%NX/ 
910 005242 116 000 .ASCII = /N/<00> 
911 005244 045 116 045 P.AAQ: .ASCII /%N%/ . 
912 005247 101 104 111 sASCII = /ADI/ 
913 0052 101 107 116 -ASCII = /AGN/ 
914 005255 117 123 111 -ASCII /OSI1/ 
915 005260 116 107 040 -ASCII /NG / 
916 005263 125 116 111 sASCII = /UNI/ 
917 0052 124 040 045 ASCII /T %/ 
918 005271 117 061 045 eASCII §=/01%/ 
919 00527 116 045 116 eASCII «= /NEN/ 
920 005277 000 -ASCII <00> 
921 005300 045 101 124 P.AAR: ASCII] /%AT/ 
922 005303 111 115 105 eASCII = /1ME/ 
923 005306 104 040 117 -ASCII /D O/ 
924 005311 125 124 040 sASCII = /uUT / 
925 005314 104 125 122 -ASCII = /DUR/ 
926 005317 111 116 107 -ASCII =/ING/ a - 
927 005322 040 115 102 -ASCII / MB/ 
928 005325 125 123 040 eASCII /US / Rows 
929 005330 045 117 062 wASCII = /%02/ 
930 005333 045 101 040 -ASCII /2A / 
931 005336 106 125 116 -ASCII «= /FUN/ 
| 
| 
j 
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/C%N/ 
/%N/<00> 
<00> 
/41%/ 
/N/<00><00> 
/47%/ 
/TEN/ 
<00><00> 
/4T%/ 
/TXT/ 
/%N/<00> 
<00> 


<00><00> 
/21%/ 


4 


22-0ct-19 
22-0ct-19 


oo 
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SEQ 0050 
7:44 TOPS 
5:32 PA:< 
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989 sML4 ; 22-0ct-1980 10:47:44 TOPS 

oy ; 22-0ct-1980 10:45:32 PA:< 
992 005562 045 124 045 LASCII § /%T%/ 

3 005565 124 045 124 SASCII «= /TXT/ 
994 005570 045 124 045 ASCII /%T%/ 
995 005573 116 000 000 ASCII /N/<00><00> 
996 005576 045 124 045 P.ABC: ASCII /%T%/ 
997 005601 124 045 124 ASCII /TT/ 
998 005604 045 124 045 ASCII /%T%/ 
999 005607 124 045 124 ASCII /TRT/ 
1000 005612 045 124 045 ASCII /%T%/ 
1001 005615 124 045 124 ASCII /T%T/ 
1002 005620 045 124 045 ASCII /%T%/ 
1003 005623 124 045 116 ASCI1  /TXN/ 
1004 005626 000 000 “ASCII <00><00> 
1005 30 040 107 117 P.ABD: ASCII / GO/ 
1006 005633 000 “ASCII <00> 
1007 005634 040 104 122 P.ABE: .ASCII / DR/ 
1008 005637 126 137 122 “ASCII = /V_R/ 
1009 005642 104 131 000 “ASCII /DY/<00> 
1010 005645 009 “ASCII <00> 
1011 005646 040 111 114 P.ABF: .ASCII / IL/ 
1012 005651 106 000 000 “ASCII © /F/<00><00> 
1013 005654 040 117 120 P.ABG: .ASCII / OP/ 
1014 005657 111 000 000 “ASCII /1/<00><00> 
1015 005662 040 102 101 P.ABH: .ASCII / BA/ 
1016 005665 104 000 000 “ASCII /D/<00><00> 
1017 005670 040 107 117 P.ABI: .ASCII / GO/ 
1018 005673 117 104 000 “ASCII /0D/<00> 
1019 005676 040 120 101 P.ABJ: .ASCII / PA/ 
1020 005701 122 111 124 “ASCII = /RIT/ 
1021 005704 131 040 116 “ASCII /Y N/ 
1022 0057 117 124 000 “ASCII = /0T/<00> 
1023 005712 040 107 105 P.ABK: .ASCII / GE/ 
1024 005715 116 105 122 “ASCII = /NER/ 
1025 005720 101 124 105 “ASCII = /ATE/ 
1026 005723 104 000 000 “ASCII /D/<00><00> 
1027 005726 040 104 105 P.ABL: .ASCII / DE/ 
1028 005731 124 105 103 “ASCII = /TEC/ 
1029 005734 124 105 104 “ASCII = /TED/ 
1030 005737 000 “ASCII <00> 
1031 005740 04 105 122 P.ABM: .ASCII / ER/ 
1032 005743 122 117 122 “ASCII /ROR/ 
103? 005746 123 000 “ASCII /$/<00> 
1034 005750 040 101 106 P.ABN: .ASCII / AF/ 
1035 005753 124 105 122 SASCI! 6 /TER/ 
1036 005756 000 000 "ASCII <0G><00> 
1037 005760 040 104 125 P.ABO: .ASCII / DU/ 
1038 005763 122 111 116 “ASCII «= /RIN/ 
1039 005766 107 000 “ASCII /G/<00> 
1040 005770 040 101 124 P.ABP: ASCII / AT/ 
1041 005773 000 “ASCII <00> 
1042 005774 040 106 101 P.ABQ: ASCII / FA/ 
1043 005777 111 114 125 “ASCII = /ILU/ 
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1048 006002 122 105 000 eASCII /RE/<00> 

1049 006005 000 ASCII <00> 

1050 006006 040 101 1246 P.ABR: .ASCII / AT/ 

1051 006011 101° 000 000 ASCII /A/<00><00> 

105 014 040 101 124 P.ABS eASCII / AT/ 

1053 006017 124 116 000 eASCII /TN/<00> 

1054 006022 040 127 122 P.ABT eASCII / WR/ 

1 006025 111 124 111 eASCII /ITI/ 

1056 006030 116 107 000 -ASCII /NG/<00> 

1057 006033 000 ASCII <00> 

1058 034 040 126 126 P.ABU: .ASCII / VV/ 

1059 006037 000 ASCII <00> 

1060 006040 040 4106 125 P.ABV: .ASCII / FuU/ 

1061 006043 116 103 000 ASCII -/NC/<00> 

1062 006046 040 124 122 P.ABW: .ASCII / TR/ 

1063 00605 105 000 00 «ASCII /E€/<00><00> 

1064 006054 040 122 115 P.ABX: .ASCII / RM/ 

1065 006057 122 000 000 -ASCII /R/<00><00> 

1066 006062 040 105 130 P.ABY: .ASCII / EX/ 

1067 006065 103 105 123 eASCII /CES/ 

1068 006070 123 111 126 eASCII /SIV/ 

1069 006073 105 000 000 eASCII /E/<00><00> 

1070 006076 040 115 102 P.ABZ: .ASCII / MB/ 

1071 006101 «+ 125 123 000 -ASCII 7US/<00> 

10 00610 “040 104 101 P.ACA: .ASCII / DA/ 

1073 006107 124 101 000 eASCII /TA/<00> 

1074 006112 040 103 117 P.ACB: .ASCII / CO/ 

1075 006115 116 124 111 eASCII /NTI/ 

1076 006120 116 125 111 eASCII /NUI/ 

1077 006123 124 131 000 eASCII /TY/<00> 

1078 006126 040 101 117 P.ACC: .ASCII / AO/ 

1079 006131 105 000 000 eASCII /E/<00><00> 

1080 006134 040 114 102 P.ACD: .ASCII / LB/ 

1081 006137 124 000 000 -ASCII /T/<00><00> 

1082 006142 040 120 122 P.ACE: .ASCII / PR/ 

1083 006145 105 115 101 ASCII /EMA/ 

1084 006150 124 125 122 ASCII = /TUR/ 

1085 006153 114 131 000 ASCII /LY/<00C> 

1086 006156 040 111 101 P.ACF: .ASCII / IA/ 

1087 006161 105 000 600 ASCII /E/<00><00> 

1088 006164 040 111 116 P.ACG: .ASCII / IN/ 

1089 006167 103 122 105 ASCII /CRE/ 

1090 006172 115 105 116 eASCII /MEN/ 

1091 006175 124 000 000 ASCII /T/<00><00> 

1092 006200 040 127 111 P.ACH: .ASCII W 

1093 006203 124 110 000 eASCII /TH/<00> 

1094 006206 040 125 126 P.ACI: .ASCII / UV/ 

1095 006211 000 ASCII <00> 

1096 006212 040 125 116 P.ACJ: .ASCII / UN/ 

1097 006215 123 000 000 -ASCII /S$/<00><00> 

1098 006220 940 120 122 P.ACK: .ASCII / PR/ 

1099 006223 117 115 000 -ASCII /0M/<00> 
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1104 006226 040 117 122 P.ACL: .ASCII / OR/ 
1105 006231 000 -ASCII <00> 
1106 006232 040 123 105 P.ACM: .ASCII / SE/ 
1107 006235 114 105 103 eASCII /LEC/ 
1108 006240 124 000 ASCII /T/<00> 
1109 006242 040 122 105 P.ACN: .ASCII / RE/ 
1110 006245 107 000 000 eASCII /G6/<00><00> 
1111 006250 049 125 116 P.ACO: .ASCII / UN/ 
1112 006253 111 121 125 ASCII /1QU/ 
1113 006256 105 000 -ASCII /E/<00> 
1114 006260 040 061 064 P.ACP ASCII / 14/ 
1115 006263 0 -ASCII <00> 
1116 006264 040 116 111 P.ACQ: .ASCII / NI/ 
1117 006267 102 102 114 -ASCII /BBL/ 
1118 006272 105 040 103 pects ¥E.GF 
1119 006275 116 124 000 -ASCII /NT/<00> 
1120 006300 040 107 i246 P.ACR: .ASCII / GT/ 
1121 006303 122 000 000 «ASCII /R/<00><00> 
1122 006306 040 127 110 P.ACS: .ASCII / WH/ 
1123 006311 111 114 105 eASCII /ILE/ 
1124 006314 000 000 ASCII <00><00> 
1125 006316 040 124 ize PACT: «CASCIO O67 TRS 
1126 006321 105 000 000 , eASCII /€&/<00><00> 
1127 632 040 111 116 P.ACU: .ASCII / IN/ 
1128 906327 111 124 111 ASCII /ITI/ 
1129 006332 101 114 000 eASCII /AL/<00> 
1130 006335 000 -ASCII <00> 
1131 006336 040 117 106 P.ACV: .ASCII / OF / 
1132 341 106 137 123 ASCII rt 
1133 006344 105 124 000 .ASCII § /ET/<00> 
1134 006347 000 -ASCII <00> 
1135 006350 040 103 117 P.ACW: .ASCII / CO/ 
1136 006353 125 116 124 eASCII = /UNT/ 
1137 006356 000 090 -ASCII <00><00> 
1138 006360 040 104 105 P.ACX: .ASCII / DE/ 
1139 006363 114 101 131 eASCII /LAY/ 
1140 006366 000 000 ASCII <00><00> 
1141 006370 040 124 105 P.ACY: .ASCII / TE/ 
1142 006373 123 124 123 -ASCII /STS/ 
1143 006376 000 00¢ ASCII <00><00> 
1144 0N6400 040 101 104 P.ACZ: .ASCII / AD/ 
1145 006403 122 123 000 «ASCII = /RS/<00> 
1146 006406 040 103 117 P.ADA: .ASCII / CO/ 
1147 006411 125 116 124 eASCII = /UNT/ 
1148 006414 105 122 000 ASCII /ER/<00> 
1149 006417 000 ASCII <00> 
1150 006420 040 122 105 P.ADB: .ASCII / RE/ 
1151 006423 107 000 000 ASCII /G6/<00><00> 
1152 006426 040 124 105 P.ADC: .ASCII / TE/ 
1153 006431 123 124 105 ASCII /STE/ 
1154 006434 104 000 ASCII /D/<00> 
| 1155 006436 040 116 111 P.ADD: .ASCII NI/ 
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| 1160 006441 102 102 114 ASCII = /BBL/ 
| 1961 006444 105 000 “ASCII /E/<00> 

1162 006446 040 101 114 P.ADE: .ASCII / AL/ 

1163 006451 114 000 000 “ASCII /L/<00><00> 

1164 006454 040 124 105 P.ADF: .ASCII / TE/ 

1165 006457 123 124 000 “ASCII. /$T/<00> 

1166 006462 040 130 106 P.ADG: .ASCII / XF/ 

1167 006465 105 122 105 “ASCII = /ERE/ 

1168 006470 104 000 “ASCII /D/<00> 

1169 006472 040 116 111. P.ADH: .ASCII / NI/ 

1170 006475 102 102 114 “ASCII /BBL/ 

1171 006500 0 123 000 “ASCII /ES/<00> 

1172 006503 000 “ASCII <00> 

1173 006504 040 123 103 P.ADI: .ASCII / SC/ 

1174 006507 000 “ASCII <00> 

1175 006510 040 115 125 P.ADJ: .ASCII / MU/ 

1176 006513 114 124 111 “ASCII /LTI/ 

1177 006516 120 114 105 “ASCII /PLE/ 

1178 006521 130 105 122 “ASCII = /XER/ 

1179 006524 000 000 "ASCII <00><00> 

1180 006526 040 125 116 P.ADK: .ASCII / UN/ 

1181 00653 105 130 120 “ASCII = /EXP/ 

1182 006534 105 103 124 “ASCII = /ECT/ 

1183 006537 *05 104 000 “ASCII /ED/<00> 

1184 00654 040 102 111 P.ADL: .ASCII / BI/ 

1185 006545 124 040 116 eASCII /T N/ 

1186 006550 117 124 040 "ASCII /0T / 

1187 006553 123 105 124 “ASCII /SET/ 

1188 006556 000 000 "ASCII <00><00> 

1189 006560 040 102 111 P.ADM: ASCII / BI/ 

1190 006563 124 040 116 “ASCII /T N/ 

1191 006566 117 124 040 “ASCII. /0T / 

1192 006571 103 114 122 “ASCII = /CLR/ 

1193 006574 000 000 "ASCII <00><00> 

1194 006576 040 116 117 P.ADN: .ASCII / NO/ 

1195 01 040 122 105 “ASCII = / RE/ 

1196 04 123 120 117 “ASCII = /SPO/ 

1197 006607 116 103 105 “ASCII = /NCE/ 

1198 006612 040 101 106 ASCII / AF/ 

1199 006615 124 105 122 “ASCII = /TER/ 

1200 006620 040 061 056 “ASCII / 1./ 

1201 006623 065 04 125 “ASCII = /5 U/ 

1202 006626 123 000 “ASCII /$/<00> 

1203 006630 040 104 101 P.ADO: .ASCII / DA/ 

1204 006633 124 101 040 “ASCII /TA / 

1205 006636 105 122 122 “ASCII = /ERR/ 

1206 006641 117 122 123 “ASCII /ORS/ 

1207 006644 000 000 "ASCII <00><00> 

1208 006646 040 102 111. P.ADP: ASCII / BI/ 

1209 006651 124 040 123 “ASCII /T S/ 

1210 006654 105 124 000 "ASCII /ET/<00> 

1211 006657 000 ASCII <00> 
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1216 006660 040 102 111 P.ADQ: ASCII / BI/ 

1217 006663 = 124 040s‘ TASCIT /T C/ 

1218 006666 114 122 000 TASC /LR/<00> 

1219 006671 000 “ASCII <00> 

1220 006672 040 117 106 P.ADR: ASCII / OF/ 

1221 006675 = 040.—s—is117——«*: “ASCII / OT/ 

1222 006700 110 105 ~— 122 TASCII  /HER/ 

1223 006703 040» 104 = 122 SASCIT 7 DR/ 

1224 006706 111 126 105 «ASCII = /IVE/ 

1225 006711 123 000 ~—000 “ASCII /$/<00><00> 

1226 006714 040 103 114 P.ADS: .ASCII / CL/ 

1227 006717, 101,123,123 TASCII  /ASS/ 

1228 006722 040 101 000 “ASCII /_A/<00> 

1229 006725 000 TASCII  <00> 

1230 006726 040 103 114 P.ADT: ASCII / CL/ 

1231 006731 101 123 123 -ASCII = /ASS/ 

1232 006734 040 102 000 TASCII 7 B/<00> 

1233 006737 000 “ASCII <00> 

1234 006740 040 «= 124.2 s«117-~ PW ADU: = CASCII. / ‘TO/ 

1235 006743 = 040s 10611 TASCIT / FI/ 

1236 006746 116 104 000 TASCII /ND/<00> 

1237 006751 0 “ASCII <00> 

1238 006752 = 040, S115. s105.«~PLADV: «ASCII / ME/ 

1239 006755 = 115. 040s«*128 TASCIT /M_S/ 

1240 006769 111 132 111 ASCII /I1Z1/ 

1241 006763 116 107 000 TASCII  /NG/<00> 

1242 006766 040 116 117 P.ADW: .ASCII / NO/ 

1243 006771 117 120 000 -ASCII /0P/<00> 

1244 006774 040 104 122 P.ADX: .ASCII / DR/ 

1245 006777 126 «= 000~S «000 “ASCII /V/<00><00> 

1246 007002 040 127 122 P.ADY: “ASCII / WR/ 

1247 007005 111 124 105 ASCII /ITE/ 

1248 007010 040 103 110 TASCIT / CH/ 

1249 007013 = 105 ss103—s«*1:18 TASCIT /ECK/ 

1250 007016 © 000-S§ 000 “ASCII <00><00> 

1251 007020 040 127 122 P.ADZ: “ASCII / WR/ 

1252 007023 = 111. s«124—s‘1085 SASCIT /1TE/ 

1253 007026 . 000 000 “ASCII <00><00> 

1254 007030 | 040 122 105 P.AEA: <ASCII / RE/ 

1255 007033 101 104 000 TASC /AD/<00> 

1256 007036 040 103 114 P.AEB: .ASCII / CL/ 

1257 007041 105 101 ~~ 122 ZASCIT  /EAR/ 

1258 007044 000 000 “ASCII <00><00> 

1259 007046 040 103 117 P.AEC: “ASCII / CO/ 

1260 007051 9115's «120—Ss« TASCIT /MP / 

1261 007054 105 122 122 TASC /ERR/ 

1262 007057 s-117,-—Ss«122-—S «000 TASCIIT /0R/<00> 

1263 007062 0460 123 131 P.AED: ‘ASCII / SY/ 

1264 007065 123 040 103 “ASCIT /S_C/ 

1265 007070 114 ~=122,—S (000 TASCIT  /LR/<00> 

1266 007073 000 “ASCII <00> 

1267 007074 040 123 105 P.AEE: <ASCII / Sé/ 


‘CZMLAAO ML-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 

‘HARDWARD TEST SECTION 

| 1269 MG 

| 1270 : 

| 1271 
1272 007077 101 122 103 ASCII 

| 1273 007102 110 000 ASCII 
1274 007104 040 122 105 P.AEF: ASCII 
1275 007107 101 104 055 ASCII 
1276 007112 111 116 055 ASCII 
1277 007115 120 122 105 ASCII 
1278 007120 123 105 124 ASCII 
1279 007123 000 ASCII 
1280 007124 040 111 114 P.AEG: .ASCII 
1281 007127 114 105 107 ASCII 
1282 007132 101 114 000 ASCII 
1283 007135 000 ASCII 
1284 007136 040 101 102 P.AEH: .ASCII 
1285 007141 1 122 124 ASCII 
1286 007144 000 000 ASCII 
1287 007146 040 101 122 P.AE1: ASCII 
1288 007151 22 040 122 ASCII 
1289 007154 104 137 127 ASCII 
1290 007157 122 124 000 ASCII 
1291 007162 040 107 117 P.AEJ: ASCII 
1292 007165 117 104 040 ASCII 
1293 007170 102 114 113 ASCII 
1294 007173 000 ASCII 
1295 007174 040 122 105 P.AEK: .ASCII 
1296 007177 106 122 105 ASCII 
1297 007202 123 110 000 ASCII 
1298 007205 000 ASCII 
1299 007206 040 101 122 P.AEL: . ASCII 
1300 007211 122 101 131 “ASCII 
1501 007214 000 000 ASCII 
1302 007216 040 122 101 P.AEM: .ASCII 
1303 007221 115 055 102 ASCII 
1304 007224 125 123 000 ASCII 
1305 007227 000 ASCII 
1306 007230 040 117 126 P.AEN: .ASCII 
1307 007233 105 122 106 ASCII 
1308 007236 114 117 127 “ASCII 
1309 007241 000 ASCII 
1310 007242 040 103 110 P.AEO: ASCII 
1311 007245 113 137 123 ASCII 
1312 007250 125 115 000 ASCII 
1313 007253 000 ASCII 
1314 007254 040 114 101 P.AEP: .ASCII 
1315 007257 123 124 040 ASCII 
1316 007262 102 114 113 ASCII 
1317 007265 000 ASCII 
1318 007266 040 111 116 P.AEQ: .ASCII 
1319 007271 111 124 111 “ASCII 
1320 007274 101 114 111 “ASCII 
1321 007277 132 105 000 ASCII 
1322 007302. 040 115 114 P.AER: ASCII 
1323 007305 103 123 061 “ASCII 


/L 
/AL/<00> 
<00> 

/ AB/ 


/ORT/ 
<00><00> 
/ AR/ 


/RAY/ 
<00><00> 
/ RA/ 
/*M-B/ 
/US/<00> 
<00> 
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CZMLAAO ML-11 LOGIC T 
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1328 007310 000 000 ASCII <00><00> 

1329 007312 040 115 114 P.AES: .ASCII / ML/ 

1330 007315 104 123 000 ASCII /DS/<00> 

1331 007320 049 115 114 P.AET: .ASCII / ML/ 

1332 007323 105 122 000 ASCII /ER/<00> 

1333 007326 040 115 114 P.AEU: .ASCII / ML/ 

| 1334 007331 115 122 000 «ASCII /MR/<00> 

1335 007334 040 115 114 P.AEV: .ASCII / ML/ 

1336 007337 101 123 000 ASCII /AS/<00> 

1337 007342 040 115 114 P.AEW ASCIT 7A 
1338 007345 104 101 000 -ASCII /DA/<00> 
1339 007350 040 115 114 P.AEX: .ASCII / ML/ 
1340 007353 104 124 000 eASCII /DT/<00> 
1341 007356 040 115 114 P.AEY: .ASCII / ML/ 
1342 007361 120 101 000 eASCII = /PA/<00> 
1343 007364 040 115 114 P.AEZ ASL 7 AS 
1344 007367 123 116 000 -ASCII /SN/<00> 
1345 007372 040 115 114 P.AFA: .ASCII / ML/ 
1346 007375 105 061 000 eASCII /E1/<00> 
1347 007400 040 115 114 P.AFB: .ASCII / ML/ 
1348 007403 105 062 000 ASCII = /E2/<00> 
1349 007406 040 115 114 P.AFC: .ASCII / ML/ 
1350 007411 104 061 000 -ASCII /01/<00> 
1351 007414 040 115 114 P.AFD: .ASCII / ML/ 
1352 007417 104 062 . 000 ASCII /D2/<00> 
1353 007422 040 115 114 P.AFE: .ASCII / ML/ 
1354 007425 105 . 105 000 ASCII /EE/<00> 
1355 007430 040 115 114 P.AFF: .ASCII / ML/ ‘ 
1356 007433 105 114 000 -ASCII /EL/<00> 
1557 007436 040 115 114 P.AFG: .ASCII / ML/ 
1358 007441 12 104 000 ASCII /PD/<00> 
1359 007444 101 123 131 P.AFH: .ASCII /ASY/ 
1360 007447 116 103 110 -ASCII = /NCH/ 
1361 007452 122 117 116 -ASCII /RON/ 
1362 007455 1 125 123 -ASCII /OUS/ . 
1363 00746 040 115 117 -ASCII / MO/ 
1364 007463 104 125 114 eASCII = /DUL/ 
1365 007466 105 040 106 ASCII °/E F/ 
1366 007471 101 111 114 eASCII /AIL/ 
1367 007474 125 122 105 eASCII = /URE/ 
1368 007477 000 ASCII <00> 
1369 0075 123 131 116 P.AFI: .ASCII /SYN/ 
1370 007503 103 110 122 ASCII = /CHR/ 
1371 007506 117 116 117 ASCII /ONO/ 
1372 007511 125 123 040 eASCII /US / 
1373 007514 115 117 104 ASCII /MOD/ 
1374 007517 125 114 105 ASCII = /ULE/ 
1375 007522 040 106 101 ASCII / FA/ 
1376 007525 111 114 125 ASCII LU/ 
1377 007530 122 105 000 ASCII = /RE/<00> 
1378 007533 000 ASCII <00> 
1379 007534 101 122 122 P.AFJ: ASCII /ARR/ 

| 

| 
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1381 3ML4 22-0ct-1980 10:47:44 TOPS 
ae : 22-0ct-1980 10:45:32 PA:< 
1384 007537 101 131 040 SASCIL. «AY / 
1385 007542 104 101 124 “ASCII. = /DAT/ 
1386 007545 101 040 115 “ASCII /A M/ 
1387 007550 117 104 125 "ASCII = /ODU/ 
1388 007553 114 105 040 “ASCII /LE / 
1389 007556 106 101 111 “ASCIIL § /FAL/ 
1390 007561 114 125 122 “ASCII = /LUR/ 
1391 007564 105 000 “ASCII = /E/<00> 
1392 007566 115 105 115 P.AFK: <cASCII /MEM/ 
1393 007571 117 122 131 “ASCII /ORY/ 
1394 007574 040 101 122 “ASCIT / AR/ 
1395 007577 122 101 131 “ASCII = /RAY/ 
1396 007602 040 115 117 “ASCII / MO/ 
1397 007605 104 125 114 “ASCII = /DUL/ 
1398 007610 105 040 106 “ASCII /E F/ 
1399 007613 101 111 114 “ASCII = /ALL/ 
| 4400 007616 125 122 105 "ASCII /URE/ 
1401 007621 000 “ASCII <00> 
1402 007622 111 116 124 P.AFL: ASCII /INT/ 
1403 007625 105 122 115 "ASCII /ERM/ 
1404 007630 105 104 111 “ASCII §/EDI/ 
1405 007633 101 124 105 "ASCII = /ATE/ 
1406 0076 040 104 111 “ASCIIL / DI/ 
1407 007641 101 107 116 “ASCII = /AGN/ 
1408 007644 117 123 124 "ASCII. /OST/ 
1409 007647 111 103 040 "ASCII /IC / 
1410 007652 115 105 123 “ASCII = /MES/ 
1411 007655 123 101 107 “ASCII = /SAG/ 
1412 007660 105 000 “ASCII = /E/<00> 
1413 007662 124 122 117 P.AFM: ASCII /TRO/ 
1414 007665 125 102 114 "ASCII = /UBL/ 
1415 007670 105 040 123 “ASCII /E S/ 
1416 007673 110 117 117 “ASCII /HOO/ ‘ 
1417 007676 124 040 114 “ASCII «/T L/ 
1418 007701 117 117 120 “ASCII /00P/ 
1419 007704 040 105 122 “ASCII / ER/ 
1420 007707 122 117 122 “ASCII © /ROR/ 
1421 007712 123 000 "ASCII = /S/<00> 
1422 
1423 
1424 
1425 007714 NIB. SAVE: 
1426 007714 ’ 
1427 007722 HW.OR.TBL 
1428 007722 177 
1429 010320 PTBL.PTR 
1430 010320 1 
1431 010322 OP .NUM. ARR 
1432 010322 ‘BLKw 
1433 010324 ARR.INC:.BiKW 1 
1434 010326 GOOD .BLK: 


T -_ 
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CZMLAAO ML=-11 LOGIC IT 

HARDWARD TEST SECTION SEQ 0059 
1436 3ML4 22-0¢t-1980 10:47:44 TOPS 
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1439 010326 -BLKW 
1440 010330 PAR.DIS:.BLKW 
1441 010332 CHIP.SIZ: 
1442 010332 -BLKW 1 
1443 010334 LST.BLK: .BLKW 1 
1444 010336 ARR.16: .BLKW 1 
1445 010340 LST.ARR: .BLKW 1 
1446 010342 10.BUF: .BLKW 400 
1447 011342 STK.OFF: .BLKB 11 
1448 EVEN 
1449 011354 STACK: .BLKW 143 
1450 011662 PD. TEMP: .BLKW 1 
1451 011664 W.C.SIZE: 
1452 011664 -BLKW 1 
1453 011666 RAS. INC: .BLKW 1 
1454 011670 WT .DATA: .BLKW 1 
1455 011672 RD.DATA: .BLKW 1 
1456 011674 DRIVE. TYPE: 
1457 011674 .BLK 1 
1458 011676 REG. INIT FLGs 
1459 011676 : .BLKW 1 
1460 
1461 E 
1462 
1463 011700 000 ML.REG::.BYTE 0 
1464 011701 000 BYTE 0 
1465 011702 004000 ~ WORD 4000 
1466 011704 173701 ~ WORD -4077 
1467 011706 160200 . WORD -17600 
1468 011710 000 BYTE 0 
1469 011711 000 BYTE 0 
1470 011712 000 BYTE 0 
1471 011713 000 BYTE 0 
1472 011714 000 BYTE 0 
1473 011715 000 BYTE 0 
1474 011716 000 BYTE 0 
1475 011717 000 BYTE 0 
1476 011720 000 BYTE 0 
1477 011721 000 BYTE 0 
1478 011722 000 BYTE 0 
1479 011723 000 BYTE 0 
1480 011724 000 BYTE 0 
1481 011725 000 BYTE 0 
1482 011726 000 BYTE 0 
1483 011727 000 BYTE 0 
1484 011730 000 BY! 0 
1485 011731 000 BYTE 0 
1486 011732 000 BYTE 0 
1487 011733 000 BYTE 0 
1488 011734 000 BYTE 0 
1489 011735 000 BYTE 0 


Tm 


CZMLAAQ ML=11 L 
HARDWARD TEST S 


NNN NNN SS NN NN NS NSN NN NNN NSS NS NSS 
SN NNO DOO AAA I BB EE ES 
WN ONO FWN (OP FNM HK ONAUE WN ONG 


feleoleleleleleleleleleleleleleolololeleleleleleleleleleleleleloeleia) 
kk kk dk a a oo oh ot ot oo 
ROPOPORY ss ss Ss Ss Ss Ss Ss Ss 


1809 
1810 
1811 
1812 
1318 
1814 
1815 
1816 
1817 
1818 
1819 
1520 011774 
1391 011775 
1592 011776 
1523 012000 
1894 012001 
1525 012002 
1526 012003 
1527 012004 
1528 012006 
1529 012007 
_ 1530 012010 
1531 912011 
1532 012012 
1538 012018 
1534 012014 
1535 012015 
1536 012016 
1537 012017 
1538 012020 
1539 012021 
1540 012022 
| 1541 012023 
1542 012026 
1548 012026 
1544 012030 
1545 012031 





0G 
EC 


I 
T 


C 
I 


EST 
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7ML4 


4620 


= 
oOo 
wD 
=) 
elo lo olololol owl ele) ee ee ee ei eloleleleleloilo) 


> 
oO 
oO 


100000 


oOo 


@ 
=< 
— 
mn 
CO FE WODCOCOCOCOCOCOOCOCOCOO | OOOO 
oO 
Oo 


SEQ 0060 
147:44 TOPS 
7:45:32 PA:< 


a 4 

CZMLAAO ML=-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 76 - 
HARDWARD TEST SECTION SEQ 0061 

1547 7ML4 22-0ct-1980 10:47:44 TOPS 
1206 ; 22-0ct-1980 10:45:32 , PA:< 

1550 012032 000110 «WORD 110 
' = 151 012034 177666 WORD <-112 
/ 1552 012036 000001 WORD 1 

1553 012040 000 BYTE 0 
| 1554 012041 000 BYTE 0 
' =. 1855 012042 000 BYTE 0 

1556 012043 000 BYTE 0 

1557 012044 000 BYTE 0 

1558 012045 000 BYTE 0 

1559 012046 000 BYTE 0 

1560 012047 000 BYTE 0 

1561 012050 000 BYTE 0 

1562 012051 G00 BYTE 0 

1563 012052 000 BYTE 0 

1564 012053 BYTE 0 

1565 012054 140300 WORD -37500 

1566 012056 BYTE 0 

1567 012057 000 BYTE 0 

568 012060 000 BYTE 0 

1569 012061 000 BYTE 0 

1570 012062 000 BYTE 0 

1571 012063 BYTE 0 

1572 012064 100300 WORD -77500 

1573 012066 / BYTE QO 

1574 012067 000 BYTE 0 

1575 012070 000 BYTE 0 

1576 012071 000] _ .BYTE 0 

1577 012072 000 BYTE 0 

1578 012073 000 —. Ovte. & 

1979 012074 000 y .BYTE 0 

1580 012075 000 a .BYTE 0 

1581 012076 000 -" BYTE 0O 

1582 012077 000 -BYTE 0 

1583 012100 000 -BYTE 0 

1584 012101 000 -BYTE 0 

1585 012102 000 -BYTE 0 

1586 012103 000 -BYTE 0 

1587 012104 000 -BYTE 0 

1588 012105 000 -BYTE 0 

1589 012106 000 -BYTE 0 

1590 012107 000 -BYTE 0 

1591 012110 000 -BYTE 0 

1592 012111 000 -BYTE 0 

1593 012112 000 -BYTE 0 

1594 012113 000 -BYTE 0 

1595 012114 010000 -WORD 10000 

1596 012116 000 -BYTE 0 

1597 012117 000 BYTE 0 

1598 012120 000 BYTE 0 

1599 012121 000 BYTE 0O 

1600 012122 000 BYTE QO 

1601 012123 000 BYTE 0 


—- 


| . 4 
CZMLAAO ML=11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 77 . | 


|HARDWARD TEST SECTION SEQ 0062 
/ 1603 M4 22=0¢t-1980 10:47:44 TOPS 
| \ohe . 3 22-0ct-1980 10:45:32 PA:< 
| 1606 012124 000 .BYTE 0 

1607 012125 000 “BYTE 0 

1608 012126 000 "BYTE 0 

1609 012127 000 "BYTE 0 

1610 012130 000 “BYTE 0 

1611 012131 000 “BYTE 0 

1612 012132 000 “BYTE 0 

1613 012133 000 “BYTE 0 

1614 012134 000 “BYTE 0 

1615 012135 000 "BYTE 0 

1616 012136 000 "BYTE 0 

1617 012137 000 "BYTE 0 

1618 012140 000 “BYTE 0 

1619 012141 000 "BYTE 0 

1620 012142 000 "BYTE 0 

1621 012143 000 "BYTE 0 

1622 012144 000 "BYTE 0 

1623 012145 000 "BYTE 0 

1624 012146 000 "BYTE 0 

1625 012147 000 "BYTE 0 

1626 012150 000 “BYTE 0 

1627 012151 000 “BYTE 0 

1628 012152 000 “BYTE 0 

1629 012153 000 "BYTE 0 

1630 012154 000 “BYTE 0 

1631 012155 000 "BYTE 0 

1632 012156 000000 “WORD 0 

1633 012160 RH.ADD::.BLKW 1 

1634 012162 RH.TYP::.BLKW 1 

1035 012164 RH.VEC::.BLKW 1 

1636 012166 ML.LUN::.BLKW 1 

1637 012170 ML.DUT::.B8LKW 1 

1638 

1639 

1640 100000 BIT15== -100000 

1641 040000 BIT14== 40000 

1642 020000 BIT13== 20000 

1643 010000 BIT12== 10000 | 

1644 004000 BIT11== 4000 net 

1645 002000 BIT10== 2000 

1646 001000 BIT09== 1000 

1647 000400 BIT08== 400 

1648 000200 BITO7== 200 

1649 000100 BIT06== 100 

1650 000040 BIT05== 40 

1651 000920 BIT04== 20 

1652 000010 BIT03== 10 

1653 000004 BITO2== 4 

1654 000002 BITO1== 2 

1655 000001 B1T00== 1 - 

1656 001000 BIT9== 1000 

1657 000400 BIT8== 400 


i De® 
EST - MAZRO M1113 23-OCT-80 09:11 PAGE 78 


CZMLAAO ML=-11 LOGIC T 

/HARDWARD TEST SECTION SEQ 0063 

| 1659 sML4 22-0ct-1980 10:47:44 TOPS 

Ho 3 22-0ct-1980 10:45:32 PA:< 
1662 000200 BlT7== 200 
1663 000100 BlT6== 100 
1664 000040 BITS== 40 
1665 000020 B1T4== 20 
1666 000010 BIT3== 10 
1667 000004 BIT2== 4 
1668 000002 BIT1== 2 
1669 000001 BIT0== 1 
1670 000040 EF .START== 40 
1671 000037 EF .RESTART== 37 
1672 000036 EF .CONTINUE== 36 
1673 000035 EF .NEW== 35 
1674 000034 EF .PWR== 34 
1675 000340 PRIO7== 340 
1676 000300 PR1I06== 300 
1677 000240 PRIO5== 240 
1678 000200 PRI04== 200 
1679 000140 PRIO03== 140 
1680 000100 PRIO2== 100 
1681 000040 PRIO1== 40 
1682 000000 PRI00== 0 
1683 000004 FVL== 4 
1684 000010 LOT== 10 i 
1685 000020 ADR== 20 
1686 000040 1DU== 40 
1687 000100 ISR== 100 
1688 000200 UAM== 200 
1689 000400 BOE== 400 
1690 001000 PNT== 1000 
1091 002000 PRI== 2000 
1692 004000 IXE== 4000 
1693 010000 IBE== 10000 
1694 020000 1ER== 20000 
1695 040000 LOE== 40000 
1696 100000 HOE == -100000 
1697 004164 FMT. 1= P.AAA 
1698 004224 FMT.2= P.AAB 
6 004312 FMT.3= P.AAC 
1700 004336 FMT.4= P.AAD 
1701 004366 FMT.5= P.AAE 
1702 004470 FMT .6= P.AAF 
1703 004520 FMT.7= P.AAG 
1704 004546 FMT.8= P.AAH 
1705 004602 FMT .9= P.AAL 
1706 004634 FMT.10= P.AAJ 
1707 004706 FMT. 11= P.AAK 
44. 004742 FMT.12= P.AAL 
1709°-— 004772 FMT.13= P.AAM 
1710 005046 FMT.14= P.AAN 
1711 005106 FMT.15= P. AAO 
1712 005154 FMT.16= P. AAP 
1713 005244 FMT.17= P.AAQ 


/CZMLAAO ML=-11 LOG 


I 

|HARDWARD TEST SECTION 
1715 3ML4 
1716 : 
1717 
1718 005300 FMT.18= 
1719 005350 ONE .FMT= 
1720 005356 TWO.FMT= 
1721 005366 THR. FMT= 
1722 005400 FOR. FMT= 
1723 005414 FIV.EMT= 
1724 005432 SIX.FMT= 
1725 005452 SEV. FMT= 
1726 005474 EIG.FMT= 
1727 005520 NIN.FMT= 
1728 005546 TEN. FMT= 
1729 005576 ELV. FMT= 
1730 905630 WRD.1= 
1731 005634 WRD.2= 
1732 005646 WRD. 3= 
1733 005654 WRD.4= 
1734 005662 WRD.5= 
1735 005670 WRD.6= 
1736 005676 WRD.7= 
1737 005712 WRD.8= 
1738 005726 WRD.9= 
1739 005740 WRD.10= 
174 005750 WRD.11= 
1741 005760 WRD.12= 
1742 005770 WRD.13= 
1743 005774 WRD.14= 
1744 006006 WRD.15= 
1745 006014 WRD.16= 
1746 006022 WRD.17= 
1/47 006034 WRD. 18= 
1748 096040 WRD.19= 
1749 006046 WRD.20= 
1750 006054 WRD.21= 
1751 006062 WRD.22= 
1752 006076 WRD.23= 
1753 006104 WRD.24= 
1754 006112 WRD.25= 
175 006126 WRD.26= 
1756 006134 WRD.27= 
1757 006142 WRD.29= 
1758 006156 WRD. 30= 
1759 006164 WRD.31= 
7760 006200 URD. 325 
1761 006206 WRD. 33= 
1762 006212 WRD. 34= 
1763 006220 WRD. 35= 
1764 006226 WRD. 36= 
1765 006232 WRD. 37= 
1766 006242 WRD. 38= 
1767 6250 WRD. 39= 
1768 006260 WRD.40= 
1769 06264 WRD.41= 


. _—e ——e henge "~E 
; TEST MACRO M1113 23-OCT-80 09:11 PAGE 79 


WVVVVVVVVVVVVVVUVVVUVUTVVUVUVVVVVVVVUVUVVUVUVVUVUVUVUVVUUVUVUVUUUUU 
o . . . a . a . - . . . o . a + oO . . . . o . eo ec — _ . o . - — o 2 e o - . . 2 . + . . . . a © . . . . 
> 
wo 
z 


22-Oct-19 
22-0ct-19 


oo 


SEQ 9064 
44 TOPS 
32 PA:< 


PE QR 
EST MACRO M1113 23-OCT-80 09:11 PAGE 80 


— - a 


‘CZMLAAO ML=11 LOGIC 1 

| HARDWARD TEST SECTION 

| 4771 ML4 
1772 ; 
1773 
1774 006300 WRD.42= P.ACR 
1775 006306 WRD.43= P-ACS 
1776 006316 WRD.44= P-ACT 
1777 006324 WRD.45= : P- ACU 
1778 06336 WRD . 46= P-ACV 
1779 006350 WRD.47= P-ACW 
1780 006360 WRD. 48= PACK 
1781 006370 WRD.49= P-ACY 
1782 006400 WRD. 50= P-ACZ 
1783 006406 WRD.51= P_ADA 
1784 006420 WRD. 52= P. ADB 
1785 006426 WRD . 53= FP ADC 
1786 006436 WRD. 54= P- ADD 
1787 006446 WRD.55= P. ADE 
1788 006454 WRD . 56= P- ADF 
1789 006462 WRD.57= P-ADG 
1790 006472 WRD. 58= P. ADH 
1791 006504 WRD. 59= PADI 
1792 006510 WRD . 60= P-ADJ 
1793 006526 WRD.61= P- ADK 
1794 006542 PHR. 1= P- ADL 
1795 006560 PHR.2= P| ADM 
1796 006576 ) PHR. 3= P_ADN 
1797 006630 PHR.4= P- ADO 
1798 006646 PHR.5= P-ADP 
1799 006660 PHR.6= P-ADQ 
1800 006672 PHR.7= P-ADR 
1801 006714 PHR.8= P-ADS 
1802 006726 PHR.9= P-ADT 
1803 006740 PHR.10= P| ADU 

006752 FNC. 1= P- ADV 

1805 006766 FNC .2= P_ADW 
1806 006774 FNC. 3= P-ADX 
1 007002 FNC .4= P-ADY 
1808 007020 FNC .5= P-ADZ 
1809 007030 FNC .6= P-AEA 
1810 007036 FNC..7= P-AEB 
1811 007046 FNC .8= P_AEC 
1812 007062 FNC .9= P-AED 
1813 007074 FNC. 10= P-AEE 
1814 007104 FNC.11= P AEF 
1815 007124 FNC. 12= P-AEG 
1816 007136 FNC.13= P-AEH 
1817 007146 FNC.14= * P-AEL 
1818 007162 FNC. 15= PAE J 
1819 007174 FNC. 16= P-AEK 
1820 007206 FNC.17= P-AEL 
1821 007216 FNC. 18= P_AEM 
1822 007230 FNC. 19= P-AEN 
1823 007242 FNC .21= P-AEO 
1824 007254 FNC ..22= P_AEP 
1825 007266 FNC.23= P_AEQ 


r--- 


| B 6 
CZMLAAO ML=11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 81 
|MARDWARD TEST SECTI 


| ON SEQ 0066 
} 
| 1827 sMLG 22-0ct-1980 10:47:44 TOPS 
| W434 ; 22-0ct-1980 10:45:32 PA:< 
| 1830 007302 REG.1= P.AER 
1831 007312 REG.2= P.AES 
1832 007320 REG. 3= P.AET 
1833 007326 REG.4= P.AEU 
1834 007334 REG.5= P.AEV 
1835 007342 REG.6= P.AEW 
1836 007350 REG.7= PL AEX 
1827 007356 REG.8= PL AEY 
1838 007364 REG.9= P.AEZ 
1839 007372 REG. 10= PLAFA 
1840 007400 REG. 11= PLAFB 
1841 007406 REG. 12= PLAFC 
1842 007414 REG. 13= PL AFD 
1843 007422 REG. 14= PLAFE 
1844 007430 REG. 15= P LAFF 
1845 007436 REG. 16= P.AFG 
1846 007444 ASYNC= P.AFH 
1847 007500 SYNC= PAF I 
1848 007534 ARR.DAT= PAF J 
1849 007566 MEM. ARR= P.AFK 
1850 007622 INTER= PLAFL 
1851 007662 TRBLE .LOOP= PLAFM 
1852 007714 D1. TEMP= NIB. SAVE 
1853 007716 D2. TEMP= NIB. SAVE +2 
1854 007720 £2. TEMP= NIB. SAVE +4 
1855 
1856 
1857 
1861 012172 LOAD. STACK: 
1862 012172 004167 171624 JSR R1,$SAVE3 : 2026 
1863 012176 016601 000012 MOV 12(SP),R1 : NIB.PTR,* 2081 
1864 012202 012702 011342 MOV #STK OFF ,R2 
1865 012206 060102 ADD R1,R2 
1866 012210 016601 000014 MOV 14(SP),R1 : STK.PTR,* 
1867 012214 016600 000012 MOV 12(SP) ,RO > NIB.PTR,* 2077 
1868 012220 006300 ASL RO 
1869 012222 066007 012226 ADC 1$(RO) ,PC 
1870 012226 000022 1$: .WORD 2$-1$ 
1871 012230 000040 .WORD 3$-1$ 
1872 012232 000056 “WORD 4$-1$ 
1873 012234 000074 -WORD 5$-1$ 
1874 012236 000112 -WORD 6$-1$ 
1875 012240 000130 .WORD 7$-1$ 
1876 012242 000156 .WORD 9$-1$ 
1877 012244 000174 .WORD 108-1$ 
1878 012246 000240 .WORD 14$-1$ 
1879 012250 005003 23: CLR R3 ; 2081 


—_—_——_ 


CZMLAAO ML=11 LOGIC TEST 


/HARDWARD TES? SECTION 


| 
| 


1881 

1882 

1883 

1884 012252 
1885 012254 
1886 012256 
1887 012260 
1888 012264 
1889 012266 
1890 012270 
1891 012272 
1892 012274 
1893 012276 
1894 012302 
1895 012304 
1896 012306 
1897 012310 
1898 012312 
1899 012314 
1900 012320 
1901 012322 
1902 012324 
1903 012326 
1904 012330 
1905 012332 
1906 012336 
1907 012340 
1908 012342 
1909 012344 
1910 012346 
1911 012350 
1912 012354 
1913 012356 
1914 012360 
1915 012362 
1916 012364 
1917 012366 
1918 012372 
1919 012374 
1920 012376 
1921 012400 
1922 012402 
1923 012404 
1924 012406 
1925 012410 
1926 012412 
1927 012414 
1928 012420 
1929 012422 
1930 012424 
1931 012426 
1932 012430 
1933 012432 
1934 012436 
1935 012440 


175430 


175412 


175374 


175356 


175342 


175324 


175276 


175260 


C 
MACRO M1113 23-OCT-80 09:11 PAGE 82 


3ML4 


3$: 


4$: 


5$: 


6$: 


7$: 


8$: 


9$: 


10$: 


11$: 


(R2) ,R3 


R1,R0 

R3,R0 
NIB.SAVE,R3 
13$ 

R3 

(R2) ,R3 
R1,RO 

R3,RO 
NIB.SAVE,R3 
8$ 

R3 

(R2),R3 


R3,RO 
NIB.SAVE,R3 
12$ 


R3 
(R2),R3 
R1,RC0 
R3,R0 
NIB.SAVE,R3 
11$ 

R3 

(R2) ,R3 

R1,R6 

R3,R0 

NIB. SAVE+2,R3 
13$ 

R3 
(R2),R3 
R1,RO 


R3,R0 
NIB.SAVE+2,R3 
R3 


R3, 
NIB.SAVE+2,R3 
128 


R3 
(R2) RB 
R1,RO 


R3,RO 
NIB.SAVE+2,R3 
R3 

R3 


6 


22-0ct-19 
22-Oct-19 


0 
0 


10 
10: 


247: 
45: 


SEQ 0067 


&4 
32 


TOPS 
PA:< 


2085 


2089 


2093 


2097 


2101 


2105 


2109 


r 


CZMLAAO ML-11 LOGI 
|HARDWARD TEST SECT 


1937 
1938 
1939 
1940 012442 
oe 012444 


C 1 
ION 


000207 


EST 


175220 


177760 
011354 
011354 


| D 
MACRO M1113 23-OCT-80 09:11 PAGE 83 


6 


ML4 
ASR R3 
ASR R3 

12$: SWAB = R3 

13$: BIC #177760,R3 
CLRB = STACK (RO) 
BISB —-R3, STACK (RO) 
RTS PC 

14$ CLR R3 
BISB —- (R2),R3 
SUB R3,R1 
MOV NIB. SAVE+4,R3 
SWAB 3 


R 
BIC #177760,R3 
CLRB STACK(R1) 
2 Sdpalachs 


; Routine Size: 107 words 
; Maximum stack depth per invocation: 


4 words 


SEQ 0068 
7:44 TOPS 
5:32 PA:< 

2077 
2113 
2026 


CZMLAAO ML-11 LOGI 
HARDWARD TEST SECT 


7ML4 


C TEST 
10N 


POPIPIPIPINMNPYIMIPO MPI NPIPO POH PMO POPofryofrorfrors 
el aed eB a aed ae a a ad ed ed cd ld ae ee ee ce ee ee ed 
WWAWWAWW AAAI PPO MO MO MUM PUM NN 
ONAUE WN | OC OONAUE WMO O®W 


000207 


E 6 
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22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
22-Oct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 ( 
routine FIRST_BLK_XFER : novalue = 
'e4 
' cncaatie DESCRIPTION: 
REPEATEDLY CALLED SEQUENCE OF 
ASSIGNMENT EXPRESSION TO LOAD 
THE DSA, BUS ADRS AND WORD COUNT 
REGISTERS WITH APPROPRIATE INFORMATION 
BEFORE MASS BUS TRANSFERS CAN 
| COMMENCE. 
LOADS A MASS_BUS BLOCK XFERR AT 
LE BLOCK ZERO. 
in 
begin 
MLDA = ZEROES; 'LOAD THE DSA REG WITH SECTOR ZERO 
MLBA = 10_BUF 'LOAD THE BUS ADDRESS REG WITH I10_BUF ADRS 
— = not 255; ‘LOAD WORD COUNT REG WITH COMPLIMENT 256 
end; 
FIRST.BLK.XFER 
177204 - a @ML .REG+30 : 
010342 177166 MOV #10.BUF ,aML.REG+20 ; 
177400 177150 ai "apateenmer sas ; 


; Routine Size: 9 words — ‘ 
; Maximum stack depth per invocation: 0 words 


(7) 


SEQ 0069 


F 6 
CZMLAAO ML-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 85 
HARDWARD TEST SECTION SEQ 0070 

2012 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 

| Sold : 22-Oct-1980 10:45:32  PA:<NEALE>BL2ML4.BL1.2 (8) 

| gold 2 2139 routine GD_BLK_XFER : novalue = 

| 2016 ; 2140 

| 2017 ; 2141 144 

2018 ; 2142 |! FUNCTIONAL DESCRIPTION: 
2019 ; 2143! REPEATEDLY CALLED SEQUENCE OF 
2020 ; 2144! ASSIGNMENT EXPRESSIONS TO LOAD 
2021 ; 2145! THE DSA, BUS ADRS AND WORD 
2022 ; 2146! COUNT REGISTERS WITH APPROPRIATE 
2023 ; 2147! INFORMATION BEFORE A MASS BUS 
2024 ; 2148 | TRANSFERS CAN COMMENCE 
2025 ; 2149 
2026 ; 2150 | LOADS A MASS_BUS BLOCK XFERR 
2027 ; 2151! AT THE GOOD BLOCK ADRS FOUND 
2028 ; 2152 =! BY THE READ WRITE ARRAYS WITH 
2029 ; 2153 | PROM DATA TEST 
2030 ; 2154 | 
2031 ; 2155 ‘= 
2032 ; 2156 : 
2033 ; 2157 re 
2034 ; 2158 ECC_DIS = ONE; ‘DISABLE ERROR CORRECTION 
2035 ; 2159 MLDA = .GOOD_ Bik; 'LOAD DSA REG WITH THE GOOD BLOCK ADRS 
2036 ; 2160 MLBA = 10_BUF; 'LOAD BUS ADRS REG WITH IO_BUF ADRS 
2037 ; 2161 MLWC = not 255; 'LOAD WORD COUNT REG WITH COMPLIMENT 256 
2038 ; 2162 end; 
2042 
2046 012542 GD.BLK.XFER 
2047 012542 152777 000002 177250 #2,aML.REG+120 ; 215 
2048 012550 016777 175552 177152 MOV GOOD .BLK ,aML .REG+30 ; 215 
2049 012556 012777 010342 177134 MOV #10.BUF ,aML.REG+20 ; 216 
2050 012564 012777 177400 177116 MOV #-400,aML.REG+10 ; 216 
Sne5 012572 000207 RTS PC 213 
2053 ; Routine Size: 13 words 
te ; Maximum stack depth per invocation: 0 words 

2060 

} 


G 
CZMLAAO ML-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 86 
HARDWARD TEST SECTION SEQ 0071 


2062 ;ML4 2 144 TOPS=20 Bliss-16 V2(206) 
$063 3 2 :32 PA: <NEALE>BL2ML4.BLI.2 (9) 


routine LAST_BLK_XFER : novalue = 


e+ 

: ani 4 DESCRIPTION: 
REPEATEDLY CALLED ay By 
ASSIGNMENT EXPRESSIONS TO i 

THE DSA, BUS ADRS AND W yore’ 

COUNT REGISTERS WITH APPROPRIATE 
INFORMATION BEFORE A MBUS 

| TRANSFER CAN COMMENCE 
i 

i 

i 

i 

ie 


~m 
So 
o 
N 


LOADS A MASS BUS BLOCK 
TRANSFER AT THE LAST BLOCK 
ADDRESS 


DONAUESWN —O OONOUE Ww 


. } 
wn : 
ect DIS = ONE; ‘DISABLE ERROR CORRECTION 
MLDA = . BLK; 'LOAD DSA REG WITH THE LAST BLOCK ADRS 
MLBA = 10_BOF; 'LOAD BUS ADRS REG WITH THE IO_BUF ADRS 
= not 255; ‘LOAD WORD COUNT REG WITH COMPLIMENT 256 


PIPIPIAPI POPS POPU PINPYMPOPY NPY MOPS MTUNMIPY POPPY 
ed ed ced ced ce ce ed ced ce ce ce a ca ce a ca a ce cd eae ee ee ee 
© Od CD OD OD 09 SI NS NI SIN SN NSN NS NS NSA AAO Om 


UEWNH Oo 

' 

— 

“ 
_" 

a 
x 

7 


4 LAST.BLK.XFER: 
4 152777 000002 177216 BISB #2,aML.REG+120 

7 016777 175526 177120 MOV LST.BLK,a@ML .REG+30 
2098 012610 012777 010342 177102 MOV #10.BUF ,aMl .REG+20 
2099 012616 012777 177400 177064 MOV #-400,aML.REG+10 
$1 012624 000207 RTS PC 


2102 ; Routine Size: 13 words : 
2103 ; Maximum stack depth per invocation: 0 words 


Nm 

& 

oa uw 
OOO ae Se Be He Be Oe Be Be Oe Oe Be Se He Oe Be Se Oe He HH SH SH He Oe 


Be Be Be Be oe 


— 
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CZMLAAO ML=11 LOG 
ECTION SEQ 0072 


] 
HARDWARD TEST SECT 


2111 5 ML4 22-0¢t-1980 10:47:44 TOPS=20 BLiss-16 V2(206) © 
o4i8 ; 22-0¢t-1980 10:45:32 PA: <NEALE>BL2ML4.BLI.2 (10) 
2116 ; 2186 routine DAT_DM_XFER : novalue = 
2115 ; 2187 
2116 ; 2188 !+4+4 
2117 ; 2189 | FUNCTIONAL DESCRIPTION: 
2118 ; 2190 ! 
| 2119 ; 2191 =! A REPEATEDLY CALLED SEQUENCE 
2120 ; 2192 =! OF ASSIGNMENT EXPRESSIONS TO 
| 2121 ; 2193! LOAD THE DSA, BUS ADRS AND WORD 
Leen e 2194! COUNT REGISTERS WITH APPROPRIATE 
2123 ; 2195 =! INFORMATION BEFORE A MASS BUS 
2124 ; 2196! TRANSFER CAN COMMENCE 
2125 ; 2197 =! 
2126 ; 2198 =! LOADS A MASS BUS BLOCK TRANSFER, 
| 2127 : 2199! IN DIAGNOSTIC MODE, AT THE GOOD 
2128 ; 2200 ! BLOCK ADRS. 
| 3129 : 2201 | 
2130 ; 2202 !-- 
vist & 2203 
2132 ; 2204 begin 
2133 ; 2205 DAT_DM = ONE; 'SET DATA DIAG MODE 
2134 ;: 2206 MLDA = .GGOD_BLK; ‘LOAD DSA REG WITH THE GOOD BLOCK ADRS 
2135 ; 2207 MLBA = 10_BUF; ‘LOAD BUS ADRS REG WITH THE 10_BUF ADRS 
2136 : 2208 MLWC = not 255; ‘LOAD WORD COUNT REG WITH COMPLIMENT 256 
2137 ; 2209 end; 
2141 
2145 012626 DAT.DM.XFER: 
2146 012626 152777 000010 177164 B1SB #10,aML.REG+120 ; 2205 
2147 012634 016777 175466 177066 MOV GOOD .BLK ,aML .REG+30 : 2206 
2148 012642 012777 010342 177050 MOV #10.BUF ,aML.REG+20 r 2207 
2149 012650 012777 177400 177032 MOV #-400,aML.REG+10 : 2208 
siat 012656 000207 RTS PC : 2186 
2152 ; Routine Size: 13 words — 
sl32 ; Maximum stack depth per invocation: 0 words 
2159 


I 6 
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CZMLAAO ML=11 LOGIC T 
ON SEQ 0073 


IC 
HARDWARD TEST SECTI 


| 


>ML4 22-0ct-1980 10:47:44  TOPS=20 Bliss-16 V2(206) | 
: 22-Oct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (11) 
routine TST_LNG_WRD (NIB_LNUM, NIB_PAT, ERR_FLG) : novalue = 
begin 


144 

' FUNCTIONAL DESCRIPTION: 

COMPARES THE CURRENT NIBBLE 
POSITION IN 'NIB_SAVE* WITH THE 
CURRENT TEST PATTERN. IF THE 
TWO VALUES ARE NOT EQUAL AN 
ERROR FLG IS SET WHICH THE 
CALLER CAN INTERIGATE 


FORMAL Beat dens 


CASE SELECT EXPRESSION TO SELECT THE 
CURRENT NIBBLE TO BE EXAMINED 


CURRENT NIBBLE PATTERN TO BE 
COMPARED 


ERR_FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ERROR FLG 

TO ENABLE THE CALLER TO EXAMINE 

THE ERROR STATUS OF THE ROUTINE CALL 


AUF WD OC OWN AUS WN (OO ONAUE WN Oo 


MO ODNAUWEWN $0 DOONAN EWN HOOD ONOUE WH — 
WWAWAWAIWANWWN WIP PIMP PI NIM NINDS 2 Oe es es es 


Be Be Se Se Se Fe Be Be Be Be Fe Be Fe Be Fe Be Se Te Be Be Be Se Be Be Se Be Ge Se Se Se Be Se Se Se Fe Se Se Se Ge Fe Se Ge Se Ge Se Ge Ge Se Se Ge Ge Se 


kk kk kk a ak ak a ok 9 oh hh SS 
Pte d bt ted teh tet eed PP PPR PRN BPA S TA Se 


2237 IMPLICIT INPUTS: 
2238 NIB_SAVE 
2239 BLOCK OF 3 WORDS TO STORE 
94 2240 THE DATA FOUND IN MLD1, MLD2 
95 2241 AND MLE2 AFTER A DIAGNOSTIC MODE 
196 2242 READ 
2197 2243 
2198 2244 | IMPLICIT OUTPUTS: NONE 
2199 2245 !-- 
2200 2246 
ak er ~ERR_FLG = ZERO; “'CLEAR THE ERROR FLAG BACK IN THE CALLING ROUTINE 
2203 2249 case .(NIB_NUM) from 0 to 9 of ‘SELECT THE NIBBLE TO BE TESTED 
2204 2250 set 
2205 2251 
2206 2252 (0) : 
2207 2253 
$508 s$3¢ if .NIB_SAVE CNIB_0O] neq .(NIB_PAT)<O, 4> then .ERR_FLG = ONE; 
2210 2256 ‘TEST NIBBLE 0 AND SET ERR FLG IF NEQ 
21 2257 
2212 2258 (1) : 
2213 2259 
2214 2260 if .NIB_SAVE CNIB_1] neq .(NIB_PAT)<O, 4> then .ERR_FLG = ONE; 
2215 2261 


MOMNR POPINPIAFE PIPING POP NY PY POPPY PY PY MINIM MIMI POPI MY POPPY MPEP Py referrer 
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CZMLAAQ ML-11 LOGI - 
HARDWARD TEST SECTION SEQ 0074 
| 2217 ;ML4 22-0¢t-1980 10:47:44 TOPS=-20 Bliss-16 V2(206) 
ssig ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (11) 
| 
| 2220 ; 2262 'TEST NIBBLE 1 AND SET ERR FLG IF NEQ 

2221 ; 2263 
| 2222: 2264 (2) : 

2223 ; 2265 

$55¢ : sses if .NIB_SAVE CNIB_2] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE; 

2226 ; 2268 'TEST NIBBLE 2 AND SET ERR FLG IF NEQ 

2227 ; 2269 

2228 ; 2270 (3) : 

2229 ; 2271 

$230 : ee7e if .NIB_SAVE CNIB_3] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE; 

c ° 

2232 ; 2274 'TEST NIBBLE 3 AND SET ERR FLG IF NEQ 

2233; 2275 

2234 ; 2276 {4] : 

2235 ; 2277 

$53 ; 14 if .NIB_SAVE CNIB_4] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE; 

2238 ; 2280 'TEST NIBBLE 4 AND SET ERR FLG IF NEQ 

2239 ; 2281 

2240 ; 2282 {5] : 

2241 ; 2283 

2242 ; 2284 if .NIB_SAVE CNIB_5] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE; 

2243 ; 2285 

2244 : 2286 'TEST NIBBLE 5 AND SET ERR FLG IF NEQ 

2245 ; 2287 

2246 ;: 2288 [6] : 

2247 ; 2289 

cose : 554 if .NIB_SAVE [CWNIB_6] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE; 

2249 ; 

2250 ; 2292 'TEST NIBBLE 6 AND SET ERR FLG IF NEQ 

2251 ; 2293 

2252 ; 2294 [7] : 

2253 ; 2295 

$238 : 276 if .NIB_SAVE CNIB_7] neq .(NIB_PAT)<O, 4> then .ERR_FLG = ONE; 

2256 ; 2298 'TEST NIBBLE 7 AND SET ERR FLG IF NEQ 

2257 ; 2299 

2258 ; 2300 (8) : 

2259 ; 2301 

ay : g30e if .NIB_SAVE CNIB_8) neq .(NIB_PAT)<O, 4> then .ERR_FLG = ONE; 

2262 ;: 2304 'TEST NIBBLE 8 AND SET ERR FLG IF NEQ 

2263 ; 2305 

2264 ; 2306 (9] : 

2265 ; 2307 

2266 ; 2308 if .NIB_SAVE [NIB_9] neq .(NIB_PAT)<0, 3> 

2267 ; 2309 then 

2268 ; 2310 -ERR_FLG = ONE ‘TEST NIBBLE 9 AND SET ERR FLG IF NEQ 

2269 ; 2311 tes; 

2270 ; 2312 

2271 ; 2313 end; 


——$—— - - — - - — ” 
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3 016702 174664 MOV NIB. SAVE ,R2 

3030 000302 SWAB eR 

3032 042702 177760 BIC #177760,R2 
001544 BEQ 13$ 


12$ 
3044 016601 000012 5$: MOV 12(SP),R1 


AUVFWN —“OOOnNOuUsWn— 


MMNMMMNN 2 - 


NIB.PAT,* 2272 


/MARDWARD TEST SECTION SEQ 0075 
2273 :MLG 22-0ct-1980 10:47:44  TOPS=20 Bliss-16 v2(206) 
ssi 3 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (11) 
2279 
2283 012660 TST.LNG.WRD: 
2284 012660 004167 171122 JSR R1,$SAVE2 : - 2210 
2285 012664 016600 000010 MOV 10(SP) ,RO : ERR.FLG,* 2267 
2286 012670 005010 CLR (RO) 
2287 012672 016601 000014 MOV 14(SP),R1 : NIB.NUM,* 2249 
2288 912676 006301 ASL R1 
2289 012700 066107 012704 ADD 1$(R1) PC 
2290 012704 000024 1$: .WORD 2$-1$ 
2291 012706 000052 “WORD 3$-1$ 
2292 012710 000110 “WORD 4$-1$ 
2293 012712 000140 "WORD 5$-1$ 
2294 012714 000200 “WORD 6$-1$ 
2295 012716 000226 "WORD 7$-1$ 
2296 012720 000264 “WORD 8$-1$ 
2297 012722 000314 .WORD 9$-1$ 
2298 012724 000354 WORD 10$-1$ 
2299 012726 000404 “WORD 11$-1$ 
2300 012730 016602 000012 2$: MOV 12(SP) ,R2 : NIB.PAT,* 2254 
2301 012734 042702 177760 BIC #177760, R2 
2302 012740 016701 174750 MOV NIB. SAVE ,R1 
2303 012744 042701 177760 BIC #177760,R1 
2304 012750 020102 CMP R1,R2 
2305 012752 001577 BEQ 1 
2306 012754 000574 BR 12$ 
2307 012756 016601 000012 3$: MOV 12(SP),R1 : NIB.PAT,* 2260 
2308 012762 042701 177760 BIC #177760,R1 
2309 012766 016702 174722 MOV NIB. SAVE ,R2 
2310 012772 006202 ASR R2 
2511 012774 006202 ASR R2 
2312 012776 006202 ASR R2 
2313 013000 006202 ASR R2 
2314 013002 042702 177760 BIC #177760,R2 
3006 020201 CMP 2,R1 
3010 00156 BEQ 
3012 000555 BR 12$ 
3014 016601 000012 4$: MOV 12(SP) : NIB.PAT,* 2266 
20 042701 177760 BIC hirreb. i 


| 


| 


CZMLAAO ML-11 LOGI 
wrens TEST SECT 


2 
2339 a eon 


2343 013110 
2344 013114 
2345 013120 
2346 013124 
2347 013126 
2348 013130 
2349 013132 
2350 013136 
2351 013142 
2352 013146 
2353 013150 
2354 013152 
2355 013154 
2356 013156 
2357 013162 
2358 013164 
2359 013166 
2560 013170 
2561 013174 
2362 013200 
2363 013204 
2364 013206 
2365 013212 
2366 013214 
2367 013216 
2368 013220 
2369 013224 
2370 013230 
2371 013234 
2372 013236 
2373 013240 
2374 013242 
2375 013244 
2376 013246 
2377 013252 
2378 013254 
2379 013256 
2380 013260 
2381 013264 
2382 013270 


C1 
10N 


016702 


EST 


177760 
174634 


177760 


000012 


177760 


000012 
177760 
174550 


177760 


000012 — 


177760 
174512 


177760 


000012 
177760 
174462 


177760 


000012 
177760 
174424 


7ML4 


6$: 


7$: 


8$: 


9$: 


10$: 


| L 
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#177760,R1 
panei 


R2 
R 


R 
#177760,R2 
R1 


’ 


1 

12(SP),R1 
#177760,R1 

“+. Maman 


R2 
R2 


R2 
ANS 


’ 


12$ 

12(SP),R1 
#177760,R1 
NIB.SAVE+2,R2 


R 
ties 


P 
760,R1 
SAVE +2,R2 


1100. 


SP) RI 
7760,R1 
SAVE +4 ,R2 


6 


; NIB.PAT,* 


; NIB.PAT,* 


; NIB.PAT,* 


; NIB.PAT,* 


; NIB.PAT,* 


22-0ct-198 
22-0ct-198 


0 
0 


1 
1 


74 


SEQ 0076 


244 
7:45:32 


TOPS 
PA:< 


2278 


2284 


2290 


2296 


2302 


feerrs 


CZMLAAO ML-11 LOGI 
HARDWARD TEST SECT 


2384 
tH 


2386 
2387 013274 


2403 013346 
sees 013352 


C TEST 
10N 


000207 


177760 


“ 
~ 


000012 


“ 177770 


174374 


177770 


000001 


MACRO M1113 23-0CT-80 09:11 


sML4 


118: MOV 


12$: MOV 
13$: RTS 


Routine Size: 
3 Maximum stack depth per invocation: 


#177760, R2 


zmawazZze2---—7D 


R 
#177770,R2 
R2,R1 

13$ 

#71, (RO) 

PC 


158 words 


Mm 6 
PAGE 92 


3 words 


; NIB.PAT,* 


SEQ 0077 
22-0c¢t-1980 10:47:44 TOPS 
22-0ct-1980 10:45:32 PA:< 

2308 
2310 
2210 


ee 
‘ 


es 


c—_ —_ - - — — neces cemeteries —_ 
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HARDWARD TEST SECTION ‘ SEQ 0078 
2415 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
seis ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (12) 
2418 ; 2314 routine XOR_LNG_WRD (NIB_NUM, NIB_PAT, RESULT) : novalue = 
2419 ; 2315 begin 
2420 ; 2316 
2421 ; 2317 '44 
2422 ; 2318 | FUNCTIONAL DESCRIPTION: 
2423 ; 2319 i EXCLUSIVE ORS THE CURRENT 
2424 ; 2320 i NIBBLE POSITION IN ‘'NIB_SAVE' 
2425 ; 2321 ! WITH THE CURRENT TEST PATTERN 
2426 ; 2322 =! AND ASSIGNS THE RESULTS TO THE 
2427 ; 2323 =! FORMAL PARAMETER ‘RESULT’. 
2428 ; 2324 =! 
2429 ; 2325 ' FORMAL PARAMETERS: . 
2430 ; 2326 =! NIB_NUM 
2431 ; 2327 =! CASE SELECT EXPRESSION TO 
2432 ;: 2328 =! SELECT THE CURRENT NIBBLE TO BE 
2433 ; , 2329 =! EXAMINED 
2434 ; 2330 ! 
2435 ; 2331 ! NIB_PAT 
2436 ; 2332 | CURRENT NIBBLE PATTERN TO BE 
2437 ; 2335! XOR'ED 
2438 ; 2334 =|! 
2439 ; 2335 =! RESULT 
2440 ; 2336 =! CONTAINS THE ADDRESS (PASSED BY REF) 
2441 ; 2337 =! OF AN OWN STORAGE LOCATION TO 
2442 ; 2338 =! ENABLE THE CALLER TO EXAMINE THE XOR RESULTS. 
2443 ; 2339 =|! 
2444 ; 2340 |! IMPLICIT INPUTS: 
2445 ; 2341 |! NIB_SAVE 
2446 ; 2342 |! BLOCK OF 3 WORDS TO STORE 
2647 : 2343! THE DATA FOUND IN MLD1 
2448 ; 2344 =! MLD2 AND MLE2 AFTER A 
2449 ;: 2345 =! DIAGNOSTIC MODE READ. 
2450 ; 2346! 
2451 ; 2347 | IMPLICIT OUTPUTS: NONE 
2452 ; 2348 N= 
2453 ; 2349 | 
2454 ;: 2350 case .(NIB_NUM) from 0 to 9 of 'SELECT THE NIBBLE TO BE XOR‘ED 
2455 ; = 2351 set ' 
2456 ; 2352 
2457 ; 2353 a3 
2458 ; 2354 «RESULT = .NIB_SAVE (NIB_0) xor -NIB_P 
2459 ;: 2355 'XOR *NIBBLE ‘b AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
2460 ; 2356 
2461 ; 2357 J: 
2462 ; 2358 -RESULT = .NIB_SAVE CNIB_1] xor NIS_P 
2463 ; 2359 'XOR NIBBLE "% AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
2464 ; 2360 : 
2465 ; 2361 ]: r 
2466 ; 2362 -RESULT = .NIB_SAVE CNIB_2] xor .N 
2467 ; 2363 'XOR NIBGLE F AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
2468 ; 2364 
2469 ; 2365 (3) : 


CZMLAAO ML=-11 LOGIC TEST 
HARDWARD TEST SECTION 
2471 ;ML4 


2472 ; 

2473 

247% ; 2366 

2475 ; 2367 

2476 ; 2368 

2477 ; 2369 

2478 ; 2370 

2479 ; 2371 

2480 ; 2372 

2481 ; 2373 

2482 ; 2374 

2483 ; 2375 

2484 ; 2376 

2485 ; 2377 

2486 ; 2378 

2487 ; 2379 

2488 ; 2380 

2489 ; 2381 

2490 ; 2382 

2491 ; 2383 

2492 ; 2384 

2493 ; 2385 

2494 ; 2386 

2495 ; 2387 

2496 ;: 2388 

2497 ; 2389 

2498 ; 2390 

2499 ; 2391 

2500 ; 2392 

2501 ; 2393 

2502 ; 2394 end; 
2506 

2510 013354 

2511 013354 004167 170460 
2512 013360 016601 000016 
2513 013364 016602 000014 
2514 013370 016600 000020 
2515 013374 006300 

2516 013376 066007 013402 
2517 013402 000024 

2518 013404 000036 

2519 013406 000062 

2520 013410 00007 

2521 013412 000076 

2522 013414 000120 

2523 013416 000136 

2524 013420 000144 

2525 

2526 

2527 

2528 013422 00016 

2529 013424 0001 

2530 013426 016712 174262 
2531 013432 042712 177760 
2532 013436 00047 

2533 013440 016703 174250 


MACRO M1113 


»RESULT 


(4) : 
»RESULT 


(5] : 
»RESULT 


(6) : 
RESULT 


(7) : 
RESULT 


(8) : 
RESULT 


(9) : 
RESULT 


tes; 


XOR. 


1$: 


3ML4 


3$: 


el 
23-OCT-80 09:11 PAGE 9% 


= .NIB_SAVE CNIB_3] xor . 


NIB_PAT; 
XOR NIBBLE 3 AND STORE RESULTS 


= ,NIB_SAVE CNIB_4] xor .NIB_PAT; 
'XOR NIBBLE 4 AND 
= .NIB_SAVE CNIB_5] xor .NIB_PAT; 
'XOR NIBBLE 5 AND 
= .NIB_SAVE CNIB_6] xor .NIB_PAT; 
'XOR NIBBLE 6 AND 
= .NIB_SAVE CNIB_7] xor .NIB_PAT; 
'XOR NIBBLE 7 AND 
= .NIB_SAVE CNIB_8] xor .NIB_PAT; 
'XOR NIBBLE 8 AND 
= .NIB_SAVE CNIB_9] xor .NIB_PAT 
'XOR NIBBLE 9 AND 
LNG.WRD: 
JSR R1,$SAVE4 
MOV 16(SP),R1 
MOV 14(SP),R2 
MOV 20(SP),RO 
ASL RO 
ADD 1$(RO) ,PC 
.WORD 2$-1$ 
.WORD 3$-1$ 
-WORD 4$-1$ 
.WORD 5$-1$ 
-WORD 6$-1% 
-WORD 8$-1$% 
-WORD 9$-1$ 
.WORD 10$-1$ , 
-WORD 12$-1$% 
~WORD 15$-1% 
V NIB.SAVE, (R2) 
BIC #177760, (R2) 
BR 17$ 
MOV NIB. SAVE ,R3 


STORE 


STORE 


STORE 


STORE 


STORE 


STORE 


RESULTS 


RESULTS 


RESULTS 


RESULTS 


RESULTS 


RESULTS 


Be Be Be Be 


SEQ 0079 
TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (12) 


IN THE ADRS CONTAINED IN .RESULTS 


IN THE ADRS CONTAINED 


N .RESULTS 


IN THE ADRS CONTAINED «RESULTS 


IN THE ADRS CONTAINED «RESULTS 


IN THE ADRS CONTAINED «RESULTS 


_ 


IN THE ADRS CONTAINED IN .RESULTS 


IN THE ADRS CONTAINED «RESULTS 


2314 
2354 


2350 


NIB.PAT,* 
RESULT,* 
NIB.NUM,* 


22-Oct-1980 10:47:44 TOPS 
22-Oct-1980 10:45:32 PA:< 
2354 
2358 


aah ® abe Weratees } Pie eral seal 
C7 
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HARDWARD TEST SECTION SEQ 0080 
2534 013444 006203 ASR R3 
2535 013446 006203 ASR R3 
2536 013 006203 ASR R3 
2537 013452 006203 ASR R3 
2538 013454 042703 177760 BIC #177760,R3 
2539 013460 010312 MOV R3, (R2) 
2540 013462 000412 BR 7$ 
2541 013464 016704 174224 4$: MOV NIB. SAVE ,R4 : 2362 
2542 013470 000437 BR 13$ 
2543 013472 016704 174216 5$: MOV NIB. SAVE ,R4 ; 2366 
2544 013476 000425 BR 11$ 
2545 013500 016712 174212 6$: MOV NIB. SAVE +2, (R2) : 2370 
2546 013504 042712 177760 BIC #177760, (R2) 
2547 013510 010104 7$: MOV R1,R4 
2548 013512 041204 BIC (R2) ,RG 
2549 013514 040112 BIC R1, (R2) 
2550 013516 050412 BIS R4, (R2) 
2551 013520 000207 RTS PC : 2350 
2552 013522 016704 174170 8$: MOV NIB. SAVE+2,R4 : 2374 
2553 013526 006204 ASR R4 
2554 013530 006204 ASR R4 
2555 013532 006204 ASR R4 
2556 013534 006204 ASR R4 
2557 013536 000415 BR 14$ 
2558 013540 016704 174152 9$: MOV NIB.SAVE+2,R4 : 2378 
2559 013544 000411 BR 13$ 
2560 012546 016704 174144 10$: MOV NIB. SAVE+2,R4 : 2382 
2561 013552 006204 11$: ASR RG 
2562 013554 006204 ASR R4 
2563 013556 006204 ASR RG 
2564 013560 006204 ASR R4 
2565 013562 000402 BR 13$ 
2566 013564 016704 174130 12$: MOV NIB. SAVE +4, R4 : 2386 
2567 013570 000304 13$: SWAB = RG 
2568 013572 042704 177760 14$: BIC #177760,R4 
2569 013576 000411 BR 16$ 
2570 013600 016704 174114 15$: MOV NIB. SAVE +4 RG : 2390 
2571 013604 006204 ASR R4 
2572 013606 006204 ASR R4 
2573 013610 006204 ASR R4 
2574 013612 006204 ASR R4 
2575 013614 000304 SWAB RG 
2576 013616 042704 177770 BIC #177770,R4 
2577 013622 010412 16$: MOV R4, (R2) 
2578 013624 010103 17$: MOV R1_R3 
2579 013626 041203 BIC (R2),R3 
2580 ML4 22-Oct-1980 10:47:44 TOPS 
2381 ; 22-Oct-1980 10:45:32 PA:< 
283 013630 040112 BIC R1, (R2) 
2584 013632 050312 BIS R3,(R2) 
2585 013634 000207 RTS PC 2314 
2590 
2591 


——y 


| 
‘CZMLAAO ML=11 LOGI 
[HARDWARD TEST SECT 


2593 ;ML4 


| 
2598 ; 2397 
2599 ;: 2398 
2600 ; 2399 
2601 ; 2400 
2602 ; 2401 
2603 ; 2402 
2604 ; 2403 
2605 ; 2404 


C TEST 
10N 


Can 


MACRO M1113 23-OCT-80 09:11 PA 


routine LD_LNG_WRD (NIB_NUM, NIB_PAT) 
begin 


44 

' | FUNcT IOWA, gPESCRIET ION: 
LOADS ‘NIB_SAVE' WITH UNIQUE 
STBBLE PATTERNS orice TO WRITING 
TO MLD1, MLD2 AND MLE2 

DATA DIAGNOSTIC REGISTERS. 


i 

i 

i 

i 

| FORMAL Bw eect 

CASE SELECT EXPRESSION TO SELECT 
! THE CURRENT NIBBLE TO BE LOADED 
i 
i CURRENT NIBBLE PATTERN TO BE 

! LOADED 

| IMPLICIT INPUTS: 

\ NIB_SAVE 

BLOCK OF 3 WORDS TO STORE 

THE DATA TO BE WRITTEN 

| INTO MLD1 MLD2 MLE2 

IMPLICIT OUTPUTS: 

\ 
in 


NIB_SAVE IS LOADED WIH 
THE CURRENT NIBBLE PATTERN 


case .(NIB_NUM) from 0 to 9 of 


set 
] : 
NIB_SAVE CNIB_0] = .NIB_PAT; 
a3 
NIB_SAVE C(NIB_1] = .NIB_PAT; 
} : 
NIB_SAVE (NIB_2) = .NIB_PAT; 


} : 

NIB_SAVE C(NIB_3) = .NIB_PAT; 
}: 

NIB_SAVE C(NIB_4] = .NIB_PAT; 


]: 
NIB_SAVE [NIB_5] = .NIB_PAT; 
(6) : 


D7 
GE 95 


: novalue 


SEQ 0081 


44 TOPS=20 Bliss-16 V2(206) 
:32 PA:<NEALE>BL2ML4.BLI.2 (13) 


'SELECT THE NIBBLE LOCATION IN NIB_SAVE TO BE LOADED 


‘LOAD NIBBLE 0 WITH NIB_PAT 
‘LOAD NIBBLE 1 WITH NIB_PAT 
'LOAD NIBBLE 2 WITH NIB_PAT 
'LOAD NIABLE 3 WITn NIB_PAT 
‘LOAD NIBBLE 4 WITH NIB_PAT 


‘LOAD NIBBLE 5 WITH Nib_PAT 


‘CZMLAAO ML=11 LOGI 
‘MARDWARD TEST SECT 


| 
| 
| 


2649 3 ML4 
2650 ; 


~m 

o 

uw 

co co 
Be Oe Oe Oe Oe we Oe Be we Be Be Oe oe 


2702 013760 


C 1 
10N 


000300 


EST 


we . 
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NIB_SAVE (NIB_6] 


a3 
NIB_SAVE CNIB_7] 


1: 
NIB_SAVE CNIB_8) 


tes; 


end; 


000004 
000006 


013656 


177760 
000017 174000 


177417 
000360 173754 


170377 
007400 173736 


9] : 
NIB_SAVE C[NIB_9] 


LD.LNG.WRD: 
MOV 


1$: . WORD 


2$: BIC 


3$: ASL 


4$: SWAB 


5$: SWAB 


«NIB_PAT; 
-NIB_PAT; 
-NIB_PAT; 


.NIB_PAT 


R1,-(SP) 
4(SP),RO 
6(SP),R1 


R1 
1$(R1) ,PC 
1$ 


#177760,R0 
1 amie 


R 
#177417,R0 
| mtaatessteese 


RO 
#170377,R0 
+ as tecnaanctee 


RO 


22-0ct-1980 10:47:44 
22-0ct-1980 10:45:32 


'LOAD NIBBLE 6 WITH NIB_PAT 


‘LOAD NIBBLE 7 WITH NIB_PAT 
'LOAD NIBBLE 8 WITH NIB_PAT 


!LOAD NIBBLE 9 WITH NIB_PAT 


: NIB.PAT,* 
; NIB.NUM,* 


TOPS=20 Bliss-16 V2(206) . 
PA:<NEALE>BL2ML4.BLI.2 (13) 


SEQ 0082 


2429 


2432 


2435 


2438 


2751 014172 000207 RTS PC 
2752 


2753 ; Routine Size: 111 words. 
2754 : Maximum stack depth per invocation: 2 words 


&. 

CZMLAAO ML=11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 97 , 

HARDWARD TEST SECTION SEQ 0083 
2704 sML4 22-0ct-1980 10:47:44 TOPS 
2705 : 22-Oct-1980 10:45:32 PA:< 
2707 013762 006300 ASL RO 

| 3708 013764 006300 ASL RO 
2709 013766 006300 ASL RO 
2710 013770 006300 ASL RO 

| 2711 013772 042700 007777 BIC #7777,R 
2712 013776 042767 170000 173710 BIC #470060, NIB. SAVE 
2713 014004 050067 173704 63: BIS RO,NIB 
2714 014010 000467 BR 15$ ; 2425 
2715 014012 042700 177760 7$: BIC 1277760,RO : 2d t 
2716 014016 142767 000017 173672 BICB = #17, NIB. SAVE +2 
2717 014024 000433 BR 11$ 
2718 014026 006300 8$: ASL RO ; 264 
2719 014030 006300 ASL RO 
2720 014032 006300 ASL RO 
2721 014034 006300 ; ASL RO 
2722 014036 042700 177417 BIC #177417,R0 
2723 014042 142767 000360 173646 BICB #360,NIB.SAVE*2 
2724 014050 000421 BR 
2725 014052 000300 9$: SWAB aN : 2647 
2726 014054 042700 170377 BIC #170377,R0 

| 2727 014060 042767 007400 173630 BIC #7400,NIB.SAVE+2 
2728 014066 000412 BR 11$ 
2729 014070 000300 10$: SWAB RO : 2450 
2730 014072 006300 ASL RO 
2731 014074 006300 ASL RO 
2732 014076 006300 ASL RO 
2733 014100 006300 ASL RO 
2734 014102 042700 007777 BIC #7777,RO 
2735 014106 042767 170000 173602 BIC #170000, NIB. SAVE+#2 
2736 014114 050067 173576 11$: BIS RO,NIB.SAVE+2 | 
2737 014120 000423 BR 15$ ; 2425 
2738 014122 000300 12$: SWAB RO : 2453 
2739 014124 042700 170377 BIC #170377,R0 
2740 014130 042767 007400 173562 BIC #7400,NIB. SAVE +4 
2741 014136 000412 BR 14$ . 
2742 014140 000300 13$: SWAB RO ; 2456 
14142 006300 ASL RO 
2744 014144 006300 ASL RO 
2745 014146 006300 ASL RO 
2746 014150 006300 ASL RO 
2747 014152 042700 107777 BIC #107777,R0 
2748 014156 042767 070000 173534 BIC #70000, NIB. SAVE +4 
2749 014164 050067 173530 14$: BIS RO,NIB.SAVE+4 
2750 014170 012601 15$: MOV (SP)+,R1 : 2395 
| 
| 


. 
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CZMLAAO ML=-11 LOGIC 1 
HARDWARD TEST SECTION SEQ 0084 
2760 ;ML4 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
$f) ; 22-0ct-1980 10:45:32 PA:<NEALE>BLOML4.BLI.2 (14) 
| 2763 ; 2460 routine WRT_CS1 (TST_PAT, index) : novalue = 
; egin 

2764 2461 beg 
| 2765 ; 2462 
| 2766 ; 24635 S44 

2767 ; 2464 | FUNCTIONAL DESCRIPTION: 

2768 ; 2465! 

2769 ; 2466 =! LOADS THE CONTROL & STATUS REGISTER 1 WITH A DATA PATTERN 

2770 ; 2467 =! GENERATED BY THE MACRO WRT_MASK. 

2771 ; 2468 =! 

2772 ; 2469 |! FORMAL PARAMETERS: 

2773 ; 2470 |! TST_PAT 

2774 ; 2471 ! CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 

2775 ; 2472 =|! 

2776 ; 2473 |! INDEX 

2777 ; 2474 |! USED BY THE MACRO WRT_MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 

2778 ; 2475 =! FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 

2779 ; 2476 =! 

2780 ; 2477 !-- 

2781 ; 2478 

2782 ; 2479 MLCS1 = WRT_MASK; 'LOAD GENERATED WRT_MASK PATTERN INTO MLCS1 

gies ; 2480 end; 

2791 014174 004167 167606 WRT.CS1:JSR R1,$SAVE2 ; 2460 

2792 014200 016600 000010 MOV 10(SP) ,RO ; INDEX,* 2479 

2793 014204 006300 ASL RO 

2794 014206 006300 ASL RO 

2795 014210 006300 ASL RO 

2796 014212 010001 MOV RO,R1 

2797 014214 016100 011702 MOV ML.REG+2(R1),RO 

2798 014220 056600 000012 BIS 12(SP),RO ; TST.PAT,* 

2799 014224 046100 011704 BIC ML.REG+4(R1),RO 

2800 014230 016102 011706 MOV ML.REG+6(R1) ,R2 

2801 014234 050002 BIS RO,R2 

2802 014236 010277 175436 MOV R2,aML .REG 

2803 014242 000207 RIS PC ‘ 2460 

2804 ‘ 

; Routine Size: 20 words : 
sor ; Maximum stack depth per invocation: 3 words 
2812 
i 


Mr 
coo 
oo 
ow 





CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 


2814 ;ML4 
2815 ; 
2816 
2817 ; 2481 
2818 ;: 2482 
2819 ; 2483 
| 2820 ; 2484 
2821 ; 2485 
2822 ; 2486 
2823 ; 2487 
2824 ; 2488 
2825 ; 2489 
2826 ; 2490 
2827 ; 2491 
2828 ; 2492 
2829 ; 2493 
2830 ; 2494 
2831 ; 2495 
2832 ; 2496 
2833 ; 2497 
2834 ; 2498 
2835 ; 2499 
2836 ; 2500 
2837 ; 2501 
2838 ; 2502 
2839 ; 2503 
2840 ; 2504 
2841 ; 2505 
2842 ; 2506 
2843 ; 2507 
2844 ; 2508 
2845 ; 2509 
2646 ; 2510 
2847 ; 2511 
2848 ; 2512 
2849 : 2513 
2850 ; 2514 
2851 ; 2515 
2852 : 2516 
2853 ; 2517 
2854 ; 2518 
2855 ; 2519 
2856 ; 2520 
2857 ; 2521 
2858 ; 2522 
2859 ; 2523 
2860 ; 2524 
2861 ; 2525 
2862 ; 2526 
2863 ; 2527 
2864 ; 2528 
2865 ; 2529 
2866 ; 2530 
2867 ; 2531 
2868 ; 2532 


H 7 
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routine RD_CS1 (TST_PAT, index, ERR_FLG) : novalue = 
begin 


144 
FUNCTIONAL DESCRIPTION: 


COMPARES THE CONTENTS OF THE 
CONTROL & STATUS REGISTER 1 

WITH THE MASKED DATA PATTERN 
GENERATED BY THE MACRO ‘WRT_MASK' 


IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘ERR_FLG' IS 
ess teee A ONE TO INDICATE THE 


FORMAL PARAMETERS: 


TST_PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE RFGISTER UNDER TEST. 


INDEX 

USED BY THE MACRO WRT_MASK TO 

SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


ERR_FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 

OF THE ROUTINE CALL. 


IMPLICIT INPUTS: 
WT _DATA 


GETS LOADED WITH THE GENERATED 
WRT_MASK DATA PATTERN THUS ALLOWING 
CALCER TO PRINT FAILING GOOD DATA. 


RL_DATA 
GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 
GLOBAL LOCATION WR_DATA 
AND 8D_DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (15) 


SEQ 0085 


. € 
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CZMLAAO ML=11 LOGIC 1 
HARDWARD TEST SECTION SEQ 0086 
2870 ;ML4 22-0ct-1980 10:47:44 TOPS=-20 Bliss-16 V2(206) 
1a} ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (15) 
| 2873; 2533 .ERR_FLG = ZERO: | ‘CLEAR ERROR FLAG 
| 2874; 2534 WT_DATA = WRT_M iSAVE THE DATA WR'TTEN TO THE REGISTER 
sor? 3 $292 RD_DATA = Wnuts1 - . IGNORE; 'READ AND SAVE THE REGISTER 
err : $337 if .WI_DATA neq .RD_DATA then .ERR_FLG = ONE; 'READ THE REG FOR WRT_MASK 
2879 : 2539 'SET ERROR FLAG IF NEQ 
sear : 2540 end; 
2888 014244 004167 167536 RD.CS1: JSR R1,$SAVE2 ; 2481 
2889 014250 005076 000010 CLR a10(SP) : ERR.FLG 2533 
2890 014254 016600 000012 MOV 12(SP),R0 : ; INDEX,* 2534 
2891 014260 006300 ASL RO 
2892 014262 006300 ASL RO a 
2893 014264 006300 ASL RO 
2894 014266 010001 MOV RO,R1 
2895 014270 016100 011702 MOV ML .REG*+2(R1),RO 
2896 014274 056600 000014 BIS 14(SP),RO ; TST.PAT,* 
2897 0143 046100 011704 BIC ML ..REG+4(R1) ,RO 
2898 014304 016102 011706 MOV ML..REG*6(R1) ,R2 
2899 014310 050002 BIS RO,R2 
2900 014312 010267 175352 MOV R2,WT.DATA 
2901 014316 017702 175356 MOV aML.2EG,R2 ; 2535 
2902 014322 056102 011706 BIS ML. ReG+6(R1), R2 
2903 014326 010267 175340 MOV R2,R 
2904 014332 026767 175332 175332 CMP wT. Daan nO. DATA : 2537 
2905 014340 001403 BEQ 1$ 
2906 014342 012776 000001 000010 MOV #1,a10(SP) > *, ERR.FLG 
ae 014350 000207 1$: RTS PC ; 2481 
2 
2909 ; Routine Size: 35 words 
2910 ; Maximum stack depth per invocation: 3 words 
2915 
| 
| 


CZMLAAO ML=-11 LOGIC TEST 
HARDWARD TEST SECTION 


2918 ;ML4 


4420 000207 


4 7 
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routine WRT_ER (TST_PAT, index) : novalue = 
begin 


44 
FUNCTIONAL DESCRIPTION: 


LOADS THE ERROR REGISTER WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 


FORMAL PARAMETERS: 


INDEX 
USED BY THE MACRO WRT_MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 


: TST_PAT 
; CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 
FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 


MLER = WRT_MASK; 


end; 
167430 WRT.ER: JSR R1,$SAVE2 ; 
000010 MOV 10(SP) ,RO ; INDEX,* 
ASL RO 
ASL RO 
ASL RO 
MOV RO,R1 
011702 MOV ML ..REG#+2(R1),RO 
000012 BIS 12(SP),R0 ; TST.PAT,* 
011704 BIC ML .REG*+4(R1) ,RO 
011706 MOV ML ..REG+6(R1) ,R2 
BIS RO,R2 
175340 MOV R2,aML.REG+60 
RTS PC $ 


; Routine Size: 20 words © 
; Maximum stack depth per invocation: 3 words 


TOPS=-20 Bliss-16 V ) 
PA:<NEALE>BL2ML4.BLI.2 (16) 


'LOAD GENERATE WRT_MASK PATTERN INTO MLER 


SEQ 0087 
2 (206 
L 


2541 
2559 


CZMLAAO ML=11 1 
'HARDWARD TEST S 


OGIC 
ECTI 


2971 ;ML4 


rT 
oO 

| 
. 


EST 


ee 


ne ae a ee 


kK 7 
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routine RD_ER (TST_PAT, index, ERR_FLG) : novalue = 


begin 


'e¢ 


! FUNCTIONAL DESCRIPTION: 


COMPARES THE CONTENTS OF THE 

ERROR REGISTER WITH 

THE MASKED DATA PATTERN 

GENERATED BY THE MACRO ‘WRT_MASK'. 


IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘ERR_FLG' IS 
2 aa A ONE TO INDICATE THE 


FORMAL PARAMETERS: 


TST_PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE RFGISTER UNDER TEST. 


INDEX 

USED BY THE MACRO WRT_MASK TO 

SELECT THE CURRENT REGISTERS er gee 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


ERR_FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 

OF THE ROUTINE CALL. 


IMPLICIT INPUTS: 
WT_DATA 


GETS LOADED WITH THE GENERATED 
WRT MASK DATA PATTERN THUS ALLOWING 
CALCER TO PRINT FAILING GOOD DATA. 


RD_DATA 
GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA, 


IMPLICIT OUTPUTS: 
GLOBAL LOCATION WR_DATA 
AND RD_DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BL1.2 (17) 


SEQ 0088 


/CZMLAAO ML=11 LOGIC TEST 


'HARDWARD TEST SECTION 


- 


3027 ;ML4 
3028 ; 


Ww 

oO 

Ww 

~m > 
. 7 7 . . . . 7 . 


3046 014422 


3089 014474 


to st es 
SOOONOUSE Ww 


000207 


wel 7 ; 
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.ERR_FLG = 
wT_ DATA = 
RD_DATA = 


end; 
167360 


000010 
000012 


75162 
175154 
000001 


-* 


175154 
000010 


_ 
oO 
WG 


ZERO; 
WRT MASK: 
.MLER or .IGNORE; 


if .WT_DATA neq .RD _DATA then .ERR_FLG = 


RD.ER: JSR R1,$SAVE2 
CLR a10(SP) 
MOV 12csP), »RO 


ASL 

ASL RO 

ASL RO 

MOV RO,R 

MOV ML. REGHQ(RID, RO 
BIS 14(SP) ,RO 


BIC ML .REG+4(R1),RO 
MOV ML ..REG+6(R1) ,R2 


RO,R 
MOV R2,WT.DATA 
MOV QML .REG+60 ,R2 
BIS ML. -REGSG (RI), »R2 


MOV R2,R 

CMP WT .DATA,RD.DATA 
BEQ 1$ 

MOV #1,a10(SP) 

RTS PC 


; Routine Size: 35 words 


ONE ; 


au TOPS-20 Bliss-16 V2(206) 
:32 PA:<NEALE>BL2ML4.BL1.2 (17) 


‘CLEAR THE ERROR FLAG 
'SAVE THE DATA WRITTEN TO THE REGISTER 
'READ AND SAVE THE REGISTER 

'READ THE REG FOR WRT_MASK 


'SET ERROR FLAG IF NEQ 


+ ERR.FLG 
; INDEX,* 


; TST.PAT,* 


3; *,ERR.FLG 


; Maximum stack depth per invocation: 3 words 


“, 


SEQ 0089 


2616 


2618 


2561 


| 


CZMLAAO 


3 
3107 


WWNWNANWA ANNA AWN 
ee ee Dl a ed ed ad ed 


NONROPO = oS | OO 
NO —"OOONOUSWN—OO® 


ML-11 


7ML4 


LO 
HARDWARD TEST SE 


GIc 1 
CTION 


000207 


EST 


M 7 
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22-Oct-1980 10:47: 
22-0ct-1980 10:45 


routine WRT_DA (TST_PAT, index) : novalue = 
begin 


le¢ 


FUNCTIONAL DESCRIPTION: 

LOADS THE DESIRED SECTOR WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
FORMAL PARAMETERS: 

TST_PAT _ 

CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 

i 

i 

i 

in 


INDEX 
USED BY THE MACRO WRT_MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 


“mon = WRT_MASK; 'LOAD MLDA WITH GENERATED WRT_MASK PATTERN 
end; 
167252 WRT.DA: JSR —s-R1, SSAVE2 ; 
000010 MOV =: 10(SP) ,RO ; INDEX,* 
ASL —s_ RO 
ASL ~—s RO 
ASL RO 
MOV —s_ ROR ) 
011702 NOV ALTREG#2CRI), RO 
000012 BIS 12 SP) ,RO ; TST.PAT,* 
011704 BIC ML.REG*4(R1) RO 
011706 MOV = ML. REG+6(R1) ,R2 
BIS RO, R2 i 
175132 MOV = R2,@ML.REG*+30 | 
RTS = PC | 


| 
; Routine Size: 20 words | 
; Maximum stack depth per invocation: 3 words 


44 TOPS=20 Bliss-16 V2(206) 
:32 PA:<NEALE>BL2ML4.BLI.2 (18) 


SEQ 0090 


2622 


— —_—_—_ --_-_—_-- ——_—_—_ — _ - - ee —— 


Cae 
‘CZMLAAO ML=11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 105 
HARDWARD TEST SECTION SEQ 0091 


3129 ;ML4 22-Oct-1980 10:47:44 TOPS=20 Bliss-16 v2(206) 
aig ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (19) 
3132 ; 2642 routine RD_DA (TST_PAT, index, ERR_FLG) : novalue = 
3133 ; 2643 begin 
3134 ; 2644 
3135 ; 2645! 4+ 
3136 ; 2646 | FUNCTIONAL DESCRIPTION: 
3137 ; 2647 |! 
3138 ; 2648 =! COMPARES THE CONTENTS OF THE ' J 
3139 ; 2649 =! DESIRED SECTOR ADDRESS REGISTER F 
3140 ; 2650 =! WITH THE MASKED DATA PATTERN 
3141; 2651! GENERATED BY THE MACRO ‘WRT_MASK' 
3142 ; 2652 | ‘ 
3143 ; 2653 =! IF THE COMPARE IS NOT EQUAL THEN 
3144 ;: 2654 =! THE FORMAL PARAMETER 'ERR_FLG' IS 
3145 ; 2655! ASSIGNED A ONE TO INDICATE THE 
* 3146; 2656 =! ERROR 
3147 ; 2657 =! 
3148 ; 2658 |! FORMAL PARAMETERS: 
3149 ; 2659 =! 
3150 ; 2660 ! TST_PAT 
3151 ; 2661! DATA PATTERN TO BE MASKED AND 
3152 ; 2662 =! COMPARED AGAINST THE CONTENTS 
3153 ; 2663 =! OF THE RFGISTER UNDER TEST 
3154; 2664 |! 
3155 ;: 2665! INDEX 
3156 ; 2665 |! USED BY THE MACRO WRT_MASK TO 
3157 ;: 2667 =! SELECT THE CURRENT REGISTERS ADDRESS, 
3158 : 2668 =! FORCED HI, FORCED LO AND DON'T CARE 
3159 ; 2669 |! MASK INFORMATION 
3160 ; 2670 ! 
3161 ; 2671 =! ERR_FLG 
3162 ; 2672 |! CONTAINS THE ADDRESS (PASSED BY REF) 
3163 ; 2673! OF THE CALLERS ERROR FLG TO ENABLE THE 
3164 ; 2674 =! CALLER TO EXAMINE THE ERROR STATUS 
3165 ; 2675! OF THE ROUTINE CALL. 
3166 ; 2676 =| IMPLICIT INPUTS: 
3167 ; 2677 =! WT_DATA e 
3168 ; 2678 =! GETS LOADED WITH THE GENERATED 
3169 ; 2679 =! WRT_MASK DATA PATTERN THUS ALLOWING 
3170 ; 2680 ! CALCER TO PRINT FAILING GOOD DATA. 
3171 ; 2681 ! 4 
3172 ; 2682 =! RD_DATA 
3173 ; 2683! GETS LOADED WITH DATA READ FROM THE 
3174 ; 2684 =! REGISTER THUS ALLOWING CALLER 
3175 ; 2685 |! TO PRINT FAILING BAD DATA. ; 
3176 ;: 2686 =! 
3177 ;: 2687 |! IMPLICIT OUTPUTS: 
3178 ; 2688 =! GLOBAL LOCATION WR_DATA 
. 3179 ; 2689 =! AND RD_DATA LOADED WITH GOOD 
3180 ; 2690 ! AND BAB REGISTER DATA 
3181 ; 2691 =! 
3182 ; 2692 Ne- 
3183; 2693 


fs 


CZMLAAO ML-11 L 
HARDWARD TEST S$ 


3185 ;ML4 


3203 014600 
3204 014604 
3205 014610 


3211 014630 
3212 014634 
3213 014640 
3214 014644 
3215 014646 
3216 014652 
3217 014656 
3218 014662 
3219 014666 
3220 014674 


3221 014676 
3222 014704 





OGIC TEST 
ECTI 


I 
TION 


000207 


B 8 
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22-0ct-1980 10: 
22-0ct-1980 10: 
cERR FLG = ZERO ‘CLEAR THE ER 
T_DATA = WRT_M Asx: 
ND “DATA = WALBA or * IGNORE: 


if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 


7: 
5: 


4a 
32 
LA 


G 


R 
'SAVE THE DATA WRITTEN TO THE REGISTER 
'READ AND SAVE THE REGISTER 


'READ THE REG FOR WRT_MASK 


'SET ERROR FLAG IF NEQ 


end; 

167202 RD.DA: JSR R1,$SAVE2 
000010 CLR a10(sr) 
000012 MOV 12(SP),R0 

ASL RO 

ASL RO 

ASL RO 

MOV RO,R 
011702 MOV ML. ReGe2(Rt), RO 
000014 BIS 14(SP),RO 
011704 BIC ML. REG+4(R1), RO 
011706 MOV ML ..REG*+6(R1) ,R2 

BIS RO,R 
175016 MOV R2,WT.DATA 
175052 MOV @ML .REG*+30,R2 
011706 BIS ML .REG#6(R1),R2 
175004 MOV R2,RD.DATA 
174776 174776 ire on 

Q 
000001 000010 MOV #1,a10(SP) 
1$: RTS PC 
; Routine Size: 35 words 


3; Maximum stack depth per invocation: 


3 words 


+ ERR.FLG 


INDEX,* 


; TST.PAT,* 


’ 
. 


; *,ERR.FLG 


SEQ 0092 


TOPS=20 Bliss-16 v2( ye 
PA: <NEALE>BL2ML4.BLI 





2696 
2698 


2642 


zm AAO ML-11 LOG 


¢ 8 
1C_TEST MACRO M1113 23-OCT-80 09:11 PAGE 107 
|HARDWARD TEST SECT 


Cc 1 
10N 


TOPS=20 Bliss-16 V2(206) 


3233 ;ML4 22-0ct-1980 10:47:44 . 
$5%2 ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (20) 
3236 ; 2702 routine WRT_MR (TST_PAT, index) : novalue = 

3237 ; 2703 begin 

3238 ; 2704 

3239 ; 2705 = ‘44 

Ses ; gine FUNCTIONAL DESCRIPTION: 

$508 3 sre LOADS THE MAINTENANCE REGISTER WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
3244 ; 2710 |! FORMAL PARAMETERS: 

3245 ; 2711 =! 

3246 2712 =! TST_PAT 

3247 ; 2713! CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 

3248 ; 2714! 

3249 ; 2715 ! INDEX 

3250 ; 2716! USED BY THE MACRO WRT_MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 

3251 ; 2717S! FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 

3252 ; 2718 ‘'-- 

3253 ; 2719 

3254 ; 2720 MLMR = WRT_MASK; 'LOAD MLMR WITH GENERATED WRT_MASK PATTERN 
$523 ; 2721 end; 

3263 014706 004167 167074 WRT.MR: JSR R1,$SAVE2 3 

3264 014712 016600 000010 MOV 10(SP),RO : INDEX,* 

3265 014716 006300 ASL RO 

3266 014720 006300 ASL RO 

3267 014722 006300 ASL RO 

3268 014724 010001 MOV RO,R1 

3269 014726 016100 011702 MOV ML .REG*+2(R1) ,RO 

3270 014732 056600 000012 BIS 12(SP),RO ; TST.PAT,* 

3271 014736 046100 011704 BIC ML .REG+4(R1),RO 

3272 014742 016102 011706 MOV ML .REG*6(R1) ,R2 

3273 014746 050002 BIS RO,R2 

3274 014750 010277 175044 MOV R2,aML .REG*+120 

he 014754 000207 RTS PC : ; 

3277 ; Routine Size: 20 words 

$508 ; Maximum stack depth per invocation: 3 words 


SEQ 0093 


2702 
2720 


2702 


r . 
/CZMLAAO ML-11 


dD 8 
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| 
3286 ;ML4 22-0ct-1980 10:47:44 
3387 ; 22-0¢t-1980 10:45:32 
$555, ; gree a (TST_PAT, index, ERR_FLG) : novalue = 
é eqin 
3591 : 5754 ° 
3292 ; 2725! 44 
3295 ; 726 | FUNCTIONAL DESCRIPTION: 
3295 : 2728 | COMPARES THE CONTENTS OF THE 
3296 ; 2729! MAINTENANCE REGISTER WITH THE 
3297 ; 2730 =! MASKED DATA PATTERN 
3298 ; 2731 : GENERATED BY THE MACRO ‘WRT_MASK'. 
3300 ; 2733 IF THE COMPARE IS NOT EQUAL THEN 
3301 ; 2734 | THE FORMAL PARAMETER "ERR_FLG' IS 
$308 ; sta Bsstenee A ONE TO INDICATE THE 
3304 : 2737 ’ 
3305 ; 2738 | FORMAL PARAMETERS: 
3307 ; 2740 | TST PAT 
3308 ; 2741 ! DATA PATTERN TO BE MASKED AND 
3309 : 2742 =! COMPARED AGAINST THE CONTENTS 
3310 ; 2743 : OF THE REGISTER UNDER TEST. 
3312 : 2745 INDEX 
3313 : 2746! USED BY THE MACRO WRT_MASK TO 
3314: 2747 I SELECT THE CURRENT REGISTERS ADDRESS, 
3315 ; 2748 | FORCED HI, FORCED LO AND DON'T CARE 
3316 2749 MASK INFORMATION. 
3518 : 2751! ERR_FLG 
3319 : 2752 =|! CONTAINS THE ADDRESS (PASSED BY REF) 
3320 ; 2753! OF THE CALLERS ERROR FLG TO ENABLE THE 
3321 : 2754! CALLER TO EXAMINE THE ERROR STATUS 
3322 ; 3739 OF THE ROUTINE CALL. 
sss; iag | MMUICKE aunts 
3326 : 2759 =! GETS LOADED WITH THE GENERATED 
3327 : 2760 ! WRT MASK DATA PATTERN THUS ALLOWING 
e358 i sre) CALCER TO PRINT FAILING GOOD DATA. 
3330 ; 2763 | RD_DATA 
3331; 2764 =! GETS LOADED WITH DATA READ FROM THE 
3332 ; 2765 | REGISTER THUS ALLOWING CALLER 
3333 2766 ; TO PRINT FAILING BAD DATA. 
3335 : 2768 | IMPLICIT OUTPUTS: 
3336 ; 2769 GLOBAL LOCATION WR_DATA 
3337 ; 2770! AND RD_DATA LOADED WITH GOOD 
$338 ; grr} AND BAD REGISTER DATA 
3340 : 2773 ine 


TOPS=20 Bliss-16 V2(206) | 
PA: <NEALE>BL2ML4.BLI.2 (21) 


SEQ 0094 


—~- 


CZMLAAO ML-11 


HARDWARD TEST 


3ML4 
3343 ; 


Ww 

Ww 

= 
~ ~o 
ee ee ee ee ee | 


L 
S 


OGIC TEST 
ECTI 


ON 


000207 


MACRO M1113 23-OCT-80 09:11 


.ERR_FLG = ZERO; 
wT DATA = WRT_MASK; 
RD_DATA = .MLAR or . IGNORE; 


if .WIT_DATA neq .RD_DATA then .ERR_FLG = 


end; 
167024 


000010 
000012 


74626 
174620 
000001 


174620 
000010 


RD.MR: 


; Maximum stack depth per invecet tons 3 


; Routine Size: 


— 8 
PAGE 109 


R1,$SAVE2 
a10(SP) 
12(SP),RO 
RO 


RO 
RO 


RO,R1 
ML.REG+2(R1) ,RO 
14(SP) ,RO 

ML ..REG*4(R1),RO 
ML.REG*6(R1) ,R2 


RO,R 

R2,WT.DATA 

aML .REG+120,R2 
ML .REG+6(R1) ,R2 
R2,RD.DATA 
eee 


1 
#1,a10(SP) 
PC 


35 words 


ONE ; 


TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (21) 


‘CLEAR THE ERROR FLAG 
'SAVE THE DATA WRITTEN TO THE REGISTER 
'READ AND SAVE THE REGISTER 


'READ THE REG FOR WRT_MASK 
'SET ERROR FLAG IF NEQ 


+ ERR.FLG 
; INDEX,* 


; TST.PAT,* 


: *, ERR.FLG 


words 


7, 


SEQ 0095 


2777 


2779 
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CZMLAAO ML=-11 LOGIC 1 
HARDWARD TEST SECTION SEQ 0096 
3391 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
3898 ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (22) 
3394 ; 2783 routine WRT_PA (TST_PAT, index) : novalue = 
3395 ; 2784 begin 
3396 ; 2785 
3397 ; 2786 44 
3398 ; 2787 '—EUNCTIONAL gg ed 
3399 ; 2788 =! LOADS THE pag ADDRESS REGISTER WITH A DATA PATTERN GENERATED BY THE MACRO WRI _MASK 
3400 ; 2789 | FORMAL PARAMETERS 
3401 ; 2790! TST_PAT 
3402 ; 2791! CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 
3403 ; 2792 INDEX 
3404 ; 2793 i USED BY THE MACRO WRT_MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 
3405 ; 2794! FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 
3406 ; 2795 ie 
3407 ; 2796 
3408 ; 2797 PROM_DIS = ONE; 'SET PROM DISABLE BIT 
3409 ; 2798 MLPA~= WRT_MASK; 'LOAD MLPA WITH GENERATED WRT_MASK PATTERN 
3410 ; 2799 PROM_DIS = “ZERO; 'CLEAR PROM DISABLE BIT 
Sei5 ; 2800 end; 
3419 015064 004167 166716 WRT.PA: JSR SSAVE2 P 2783 
3420 015070 152777 000040 174722 BISB #40, aML.REG+120 : 2797 
3421 015076 016600 000010 MOV 10(SP),RO ; INDEX,* 2798 
3422 015102 006300 ASL RO 
3423 015104 006300 ASL RO 
3424 015106 006300 ASL RO 
3425 015110 010001 MOV RO,R 
3426 015112 16100 011702 MOV ML. REGHD(RI), RO 
3427 015116 56600 000012 BIS 12 (SP) RO ; TST.PAT,* 
3428 015122 046100 011704 BIC ML. REG+4(R1), RO 
5429 015126 016102 011706 MOV ML .REG+6(R1),R2 
3430 015132 050002 BIS RO,R2 
3431 015134 010277 174640 MOV R2,aML .REG+100 
3432 015140 142777 000040 174652 BICB #40,aML.REG+120 5 2799 
$32 015146 000207 RTS PC F 2783 
3435 ; Routine Size: 26 words — c 
szt ; Maximum stack depth per invocation: 3 words 


G 8 
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CZMLAAO ML=11 LOGIC 1 
HARDWARD TEST SECTION SEQ 0097 
3444 3 ML4 22-Oct-1980 10:47:44  TOPS=20 Bliss-16 V2(206) 
| nek ; 22-0ct-1980 10:45:32 PA:<NEALE>SL2ML4.BL1.2 (23) 
(3447 | 2801 routine RD_PA (TST_PAT, index, ERR_FLG) : novalue = 
| 55448 2802 begin 
3449 | 2803 
3450 ; 2804 '4+ 
3431 ; 805 | FUNCTIONAL DESCRIPTION: 
3453 : 2807 | COMPARES THE CONTENTS OF THE 
3454 : 2808 ! FROM ADDRESS REGISTER 
3455 ; 2809! WITH THE MASKED DATA PATTERN 
$029 ; $oi9 GENERATED BY THE MACRO 'WRT_MASK'. 
3458 : 2812 | IF THE COMPARE IS NOT EQUAL THEN 
3459 : 2813 THE FORMAL PARAMETER ‘ERR FLG’ IS 
eo ; si 14 ae A ONE TO INDICATE THE 
3462 : 2816 | ; 
BS Bap | Foi eee 
3465 : 2819 DATA PATTERN TO BE MASKED AND 
3466 ; 2820 ! COMPARED AGAINST THE CONTENTS 
3467 ; 2821 ; OF THE REGISTER UNDER TEST. 
3469 : 2823 | INDEX 
3470 ; 2824 |! USED BY THE MACRO WRT_MASK TO 
3471 : 2825! SELECT THE CURRENT REGISTERS ADDRESS. 
3472 : 2826 | FORCED HI, FORCED LO AND DCN'T CARE 
ob, 3 4444 MASK INFORMATION. 
3475 : 2829 | ERR FLG 
3476 : 2830 | CONTAINS THE ADDRESS (PASSED BY REF) 
3477 : 2831 | OF THE CALLERS ERROR FLG TO ENABLE THE 
3478 : 2832 =! CALLER TO EXAMINE THE ERROR STATUS 
a7 ; 2835 OF THE ROUTINE CALL. 
sg: Saag mys ats: 
3483 : 2837 GETS LOADED WITH THE GENERATED 
3484 ; 2838 | WRT MASK DATA PATTERN THUS ALLOWING 
oe H ; 4 CALLER TO PRINT FAILING GOOD DATA. 
3487 : 2841 | RD_DATA 
3488 ; 2842 =! GETS LOADED WITH DATA READ FROM THE 
3489 ; 2843 REGISTER THUS ALLOWING CALLER 
Sot ; sree TO PRINT FAILING BAD DATA. 
3492 : 2846 | IMPLICIT OUTPUTS: 
3493 : 2847 | GLOBAL LOCATION WR_DATA 
3494 ; 2848 | AND RD_DATA LOADED WITH GOOD 
Pe ; eH AND BAD REGISTER DATA 
3497 : 2851 ie 
3498 : 2852 


H 8 
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CZMLAAO ML-11 1 
ON SEQ 0098 


L 
HARDWARD TEST S$ 


3500 ;ML4 22-0ct-1980 10:47:44 TOPS=-20 Bliss-16 V2(206) 
$205 ; 22°0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (23) 
| 3503 ; 2853 -ERR_FLG = ene 'CLEAR THE ERROR FLAG 
3504 ; 2854 PROM-DIS = ONE iSET THE PROM DISABLE BIT 
3505 ; 2855 WT_DATA = WRT_MASK; 'SAVE THE DATA WRITTEN TO THE REGISTER 
$209 ; $036 RD_DATA = mh or .IGNORE; 'READ AND SAVE THE REGISTER 
te08 ; sts if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; !READ THE REG FOR WRT_MASK 
3510 ; 2860 PROM_DIS = ZERO; 'SET ERROR IF NEQ 
Sele ; 2861 end; 'CLEAR THE PROM DISASLE BIT 
3519 015150 004167 166632 RD.PA: JSR R1,$SAVE2 : 2801 
3520 015154 005076 000010 CLR a10(SP) ; ERR.FLG 2853 
3521 015160 152777 000040 174632 B1SB8 #40,aML.REG+120 : 2854 
3522 015166 016600 000012 MOV 12(SP),RO ; INDEX,* 2855 
3523 015172 006300 ASL RO 
3524 015174 006300 ASL RO 
3525 015176 006300 ASL RO 
3526 015200 010001 MOV RO,R1 
3527 015202 016100 011702 MOV ML .REG*+2(R1),RO 
3528 015206 056600 000014 BIS 14(SP),RO ; TST.PAT,* 
3529 015212 046100 011704 BIC ML .REG*+4(R1),RO 
3530 015216 016102 011706 MOV ML .REG*6(P1) ,R2 
3531 015222 050002 BIS RO,R 
3532 015224 010267 174440 MOV R2,W1T.DATA 
3533 015230 017702 174544 MOV @ML .REG+100,R2 ; 2856 
3534 015234 056102 011706 BIS ML. REG+O(R1) R2 
3535 015240 010267 174426 MOV R2,RD.DATA 
3536 015244 026767 174420 174420 CMP wl. Dain. RD.DATA : 2858 
3537 015252 001403 BEQ 
3538 015254 012776 000001 000010 MOV a10(SP) ; *, ERR.FLG 
3539 015262 142777 000040 174530 1$: BICB r6, QML .REG+120 $ 2860 
re 015270 000207 RTS i 2801 
3542 ; Routine Size: 41 words 
eee3 ; Maximum stack depth per invocation: 3 words 
3549 
| 


1 8 
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CZMLAAO ML=11 LOGIC I 
ON SEQ 0099 


‘HARDWARD TEST SECT 


-_—o 


3551 = ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 

3226 ; 22-0ct-1980 19:45:32 PA:<NEALE>BL2ML4.BLI.2 (24) 

3554 ; 2862 routine WRT_E1 (TST_PAT, index) : novalue = 

3555 ; 2863 begin 

3556 ; 2864 

3557 ; 2865 | 4+ 

3558 ; 2866 | FUNCTIONAL DESCRIPTION: 

3559 ; 2867 LOADS THE ECC CRC WORD REG 1 WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 

3560 ; 2868 | FORMAL PARAMETERS: 

3561 ; 2869 =! TST_PAT 

$208 ; sary ! et DATA PATTERN TO BE LOADED IN THE REGISTER. 

3564 ; 2872 =! USED BY THE MACRO WRT_MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 

3565 ; 2873 | FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 

3566 ; 2874 i- 

3567 ; 2875 

3568 ; 2876 ECC_DM = ONE; 'SET ECC DIAG MODE 

3569 ; 2877 MLET = WRT_MASK; ‘LOAD MLE1 WITH GENERATED WRT_MASK PATTERN 

3570 ; 2878 ECC_DM = ZERO; 'CLEAR ECC DIAG MODE 

$278 ; 2879 end; 

3579 015272 004167 166510 WRT.E1: JSR R1,$SAVE2 i 2862 
3580 015276 152777 000001 174514 BISB #1,aML.REG+120 : 2876 
3581 015304 016600 000010 MOV 10(SP),R0 ; INDEX,* 2877 
3582 015310 006300 ASL RO 

3583 015312 006300 ASL RO 

3584 015314 006300 ASL RO 

3585 015316 0100061 MOV RO,R1 

3586 015320 016100 011702 MOV ML ..REG#2(R1) ,RO 

3587 015324 056600 000012 BIS 12(SP),RO ; TST.PAT,* 

3588 015330 046100 011704 BIC ML. REG+4(R1), RO 

3589 015334 016102 011706 MOV ML .REG*6(R1),R2 

3590 015340 050002 BIS RO,R 

3591 015342 010277 174502 MOV R2,aML .REG*+150 

3592 015346 142777 000001 174444 BICB #1,aML .REG+120 : 2878 
Sooe 015354 000207 RTS PC : 2862 
3595 ; Routine Size: 26 words : 

3208 ; Maximum stack depth per invocation: 3 words 


r 


CZMLAAO ML-11 
WARDWARD TEST S$ 


3604 ;ML4 


LOG 
SEC 


l 
T 


EST 


4 & 
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22-0c t-1980 
22-0c t-1980 


routine RD_E1 (TST_PAT, index, ERR_FLG) : novalue = 


le¢ 


begin 


: a DESCRIPTION: 


COMPARES THE CONTENTS OF THE 


GENERATED BY THE MACRO ‘WRT_MASK' 


IF THE COMPARE iS NOT roy us 
THE FORMAL PARAMETER ‘ERR IS 
ASSIGNED A ONE TO INDICATE “The ERROR. 


FORMAL PARAMETERS: 
TST_PAT 


DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 


INDEX 

USED BY THE MACRO WRT_MASK TO 

SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


ERR_FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 

OF THE ROUTINE CALL. 


IMPLICIT INPUTS: 
WT_DATA 


GETS LOADED WITH THE GENERATED 
WRT MASK DATA PATTERN THUS ALLOWING 
CALCER TO PRINT FAILING GOOD DATA. 


RD_DATA 
GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 
GL 


OBAL LOCATION WR_DATA 
AND RD_DATA LOADED WITH GOOD 
AND BAB REGISTER DATA 


-ERR_FLG = ZERO; 'CLEAR THE ERROR FLAG 


TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (25) 


SEQ 0100 


CZMLAAO ML=11 LOGI 
‘HARDWARD TEST SECT 


3660 ;ML4 
3661 ; 


| 3663 ; 


w 
o 
oa 
~ 


3671 ; 
3675 
3679 015356 


C TEST 
10N 


000207 


ECC_DM = ONE; 
WT_BATA = WRT_MASK; 
RD_DATA = .MLE1 or . IGNORE; 
if .WT_DATA neq .RD_DATA then 
ECC_DM = ZERO; 
end: 
166424 RD.E1: JSR 
000010 CLR 
000001 174424 BISB 
000012 MOV 
ASL 
ASL 
ASL 
MOV 
011702 MOV 
000014 BIS 
011704 BIC 
011706 MOV 
BIS 
174232 MOV 
174406 MOV 
011706 BIS 
174220 MOV 
174212 174212 a 
000001 000010 MOV 
000001 174322 1$: B1CB 


k 8 
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; Routine Size: 


; Maximum stack depth per invocation: 


R1,$SAVE2 
a10(SP) 
#1, QML .REG+120 
12(SP) .RO 

RO 

RO 
RO 

RO,R1 

ML .REG#2(R1),RO 
14(SP) ,RO 


ML .REG#+4(R1),RO 
ML .REG+6(R1) .R2 


RO,R 

R2,WT.DATA 

aM .REG+150,R2 
ML .REG+6(R1) ,R2 
R2,RD.DATA 
Cae 


#1,a10(SP) 
ot oa. EON 


41 words 


-ERR_FLG = ONE; 


22-0c t-1980 
22-0c t-1980 


10: 
10:45 
'SET ECC DIAG MODE 


47:44 
:32 


TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (25) 


'SAVE THE DATA WRITTEN TO THE REGISTER 
'READ AND SAVE THE REGISTER 


'READ THE REG FOR WRT_MASK 


'SET ERROR FLAG IF NEQ 
!CLEAR ECC DIAG MODE 


3 words 


ERR.FLG 
INDEX,* 


; TST.PAT,* 


*,ERR.FLG 


SEQ 0101 


2934 


2936 


2938 
2880 


ry — ——_-- 


| 
CZMLAAO ML-11 LOG 


IC TEST 
HARDWARD TEST SECT 
37 ML4 


—o 


ON 


L 8 
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: novalue = 


22-0c t-1980 
22-0c t-1980 


SEQ 0102 


44 TOPS-20 Bliss-16 V2(206) 
:32 PA: <NEALE>BL2ML4.B BLI.2 (26) 


TST_PAT ‘ 
CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 


FORCED 


R1,$SAVE2 
#1,aML.REG+120 
#-100,ML .REG+166 
scan 


RO 
RO 


RO,R 

ML. REG#2(R1), RO 
12(SP) ,RO 

ML .REG#+4(R1) ,RO 
ML .REG+6(R1) ,R2 


’ 


R2, QML .REG*+160 
ML ..REG+166 
4e -@ML .REG? 120 


1 
3712 ; 
3713 
3714 ; 2941 routine WRT_E2 (TST_PAT, index) 
3715 ; 2942 begin 
3716 ; 2943 
3717 ; 2944 S44 
3718 ; 2945 ! FUNCTIONAL DESCRIPTION: 
3719 ; 2946 | 
3720 ; 2947 i LOADS THE ECC CRC WORD 
3721 ; 2948 i REGISTER 2 WITH A DATA PATTERN 
3722 ; 2949 i GENERATED BY THE MACRO 
3723 ; 2950 ! WRT_MASK 
3724 ; 2951 i 
3725 ; 2952 i FORMAL PARAMETERS: 
3726 ; 2953! 
3727 ; 2954 | 
3728 ; 2955! 
3729 ; 2956! 
3730 ; 2957 | INDEX 
3731 ; 2958 i USED BY THE MACRO WRT_MASK 
aise s 2959 TO SELECT THE CURRENT REGISTERS 
3733 ; 2960 i ADDRESS, FORCED HI, 
3734 ; 2961 i LO AND DON’ T CARE MASK 
3735 ; 2962 INFORMATION. 
3736 ; 2963! 
3737 ; 2964 i- 
3738 ; 2965 
3739 ; 2966 ECC_DM " 
3740 : 2967 MLE2 *RASK = Met 0177700": 
3741 ; 2968 MLE2 = T_MASK; 
3742 ; 2969 MLE2 mask = %0'000000'; 
3743 ; 2970 ECC_DM = ZERO; 
3744 ; 2971 en 
3748 
3752 015500 004167 16630 WRT.E2: JSR 
3753 015504 152777 000001 174306 B1SB 
3754 015512 012767 177700 174346 MOV 
3755 015520 016600 000010 MOV 
3756 015524 006300 ASL 
3757 015526 006300 ASL 
3758 015530 006300 ASL 
3759 015532 010001 MOV 
3760 015534 016100 011702 MOV 
3761 015540 056600 000012 BIS 
3762 015544 046100 011704 BIC 
3763 015550 016102 011706 MOV 
3764 015554 050002 BIS 
3765 sML4 
3766 3 
~3767 
3768 015556 010277 174276 MOV 
3769 015562 005067 174300 CLR 
3770 015566 142777 000001 174224 BICB 
3771 015574 000207 RTS 


'SET ECC DIAG MODE 

'MASK OUT DATA DIAG BITS 

'LOAD MLE2 WITH — WRT_MASK PATTERN 
‘RESTORE MLE2_MASK 

‘CLEAR ECC DIAG MODE 


INDEX,* 


3; TST.PAT,* 


22-Oct-1980 10:47:44 
22-Oct-1980 10:45:32 


—_——_—_-—_-—__- —- -— 


‘CIMLAAO ML=11 LOGIC TEST 
HARDWARD TEST SECTION 


3ML4 


Se Se Se Se Be Be Se Se Be Se Se Se Ge Se Be Be Be Se Ge Ge Be Ge Fe Ge Ge Se Ge Gs Ge Ge Ge Ge Se Se Ge Se Ge Ge Ge Ge Fe Se Ge Se Ge Be Se Se Sete ee Ge 


| : . " 8 
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2972 routine RD_E2 (TST_PAT, index, ERR_FLG) : novalue = 


2975 !4 


begin 


2976 ; FUNCTIONAL DESCRIPTION: 


i 
i 
i 
' 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 

3001 | 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i] 
‘ 
i 


COMPARES THE CONTENTS OF THE 

ECC CRC WORD REGISTER 2 

WITH THE MASKED DATA PATTERN 
GENERATED BY THE MACRO ‘WRT_MASK' 


IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘ERR_FLG' IS 
ass sente A ONE TO INDICATE THE 


FORMAL PARAMETERS: 


TST_PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 


INDEX 

USED BY THE MACRO WRT _MASK TO 

SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


ERR_FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 

OF THE ROUTINE CALL. 


IMPLICIT INPUTS: 
WT _DAT 


ATA 

GETS LOADED WITH THE GENERATED 

WRT MASK DATA PATTERN THUS ALLOWING 
CALCER TO PRINT FAILING GOOD DATA. 


RD_DATA 
GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 
GLOBA 


L LOCATION WR_DATA 
AND RD_DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (27) 


“2 


SEQ 0103 


[ 
'CZMLAAO ML-11 LOGIC TEST 
HARDWARD TEST SECTION 


37ML4 
3836 ; 


Ww 
oo 
Pt 
a wr 
Be Oe Oe Se Oe BH Os oe Be Oe Oe BE 


3880 015722 
3881 015730 
3882 
3883 ° 
3884 
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22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (27) 
JERR at ZERO: ‘CLEAR ERROR FLAG 
ECC_BM = 'SET ECC DIAG MODE 
MLE2 MASK = Meio 27700" iMASK OUT DATA DIAG BITS 
WT_DATA = WRT_MA 'SAVE THE DATA WRITTEN TO THE REGISTER 
RD_DATA = .MLE2 —y . IGNORE; 'READ AND SAVE THE REGISTER 
if .WI_DATA neq .RD_DATA then .ERR_FLG = ONE: 'READ THE REG FOR WRT_MASK 
'SET ERROR FLG IF NEQ 
MLE2_MASK = %0'000000'; (RESTORE MLE2 MASK 
ECC_DM = ZERO; 'CLEAR ECC DIAG MODE 
end; 
166204 RD.E2: JSR R1,$SAVE2 : 
00001 CLR a10(sP) + ERRSFLG 
000001 174204 61 SB #1,aML.REG+120 : 
177700 174244 MOV #-100,ML.REG+166 ! 
00001 MOV 12(SP), : INDEX,* 
ASL RO 
ASL RO 
ASL RO 
MOV RO,R 
011702 MOV ML. ReGe2tRt), RO 
000014 BIS 14(SP),RO : TST.PAT,* ° 
011704 BIC ML.REG#4(R1),R0 
011706 MOV ML .REG+6(R1),R2 . 
BIS RO,R 
174004 MOV R2,WT.DATA 
174170 MOV aML.REG+160,R2 ; 
011706 BIS ML .REG+6(R1) ,R2 
173772 MOV R2,RD.DATA 
173764 173764 a WI .DATA.RD.DATA : 
000001 000010 MOV #1,a10(SP) : *, ERR.FLG 
17414 CLR ML..REG+166 ; 
000001 174070 BICB #1, aML.REG+120 ; 
RTS PC : 
; Routine Size: 46 words 


; Maximum stack depth per invocation: 3 words 


SEQ 0104 


leone ML-11 LOGIC TEST 
HARDWARD TEST SECTION 





3ML4 
15732 
15736 
15744 
15752 
15756 
15760 
15762 
15764 
15766 
15772 
15776 


046100 


ian B89 
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routine WRT_PD (TST_PAT, index) : novalue = 
begin 
'o¢ 
FUNCTIONAL DESCRIPTION: 
\ LOADS THE PROM DATA 
' REGISTER WITH A DATA PATTERN 
' GENERATED BY THE MACRO 
WRT_MASK 
FORMAL PARAMETERS: 
' TST_PAT 
' CURRENT DATA PATTERN TO BE 
LOADED IN THE REGISTER. 
' INDEX 
' USED BY THE MACRO WRT_MASK 
' TO SELECT THE CURRENT REGISTERS 
' ADDRESS, FORCED HI, FORCED 
' LO AND DON'T CARE MASK 
INFORMATION 
= 
PROM _RW = ONE; 
DAT_BM = ONE; 
MLPD = WRI_MASK; 
DAT_CLK = ONE; 
PROM_RW = ZERO; 
DAT_DM = ZERO; 
end; 
166050 WRT.PD: JSR R1,$SAVE2 
000100 174054 BISB #100,aML.REG+120 
000010 174046 BISB #10,aML.REG+120 
000010 MOV 10(SP),RO 
ASL RO 
ASL RO 
ASL RO 
MOV RO,R1 . 
011702 MOV ML .REG#2(R1),RO 
000012 BIS 12(SP),RO 
011704 BIC ML .REG+4(R1),RO 


44 TOPS=20 Bliss-16 V2(206) | 
:32 PA:<NEALE>BL2ML4.BLI1.2 (28) 


'SET PROM READ WRITE 
'SET DATA DIAG MODE 


'LOAD MLPD WITH GENERATED WRT_MASK PATTERN 


'DO A DATA CLK 


'CLEAR PROM READ WRITE 
'CLEAR DATA DIAG MODE 


INDEX,* 


TST.PAT,* 


SEQ 0105 





e 


‘CZMLAAO ML=11 


L EST 
HARDWARD TEST S 


OGIC T 
ECTION 


011706 
174114 


Ww 
Oo 
eal 
oO 
Oo 
—_ 
oa 
oO 
— 
oO 
on-- OOF 


000010 


) : eS 
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ML4 
MOV ML .REG+6(R1),R2 
BIS RO,R2 
MOV R2.aML.REG+230 
173776 BISB #20,aML.REG+120 
173770 BICB #100,aML.REG+120 
173762 B1CB #10, AML .REG* 120 


; Routine Size: 35 words — ; 
; Maximum stack deptl, per invocation: 


SEQ 0106 


344 TOPS 
:32 PA:< 


w 
So 
oa 
co 


3 words 


aecias . — 
| 


AAAWAAAAANAAAAAAAAAAAY 


ee ed ed td od = = 
a eS ee 
Ww 


—OODWWOUES WN $C VOOnNOuW 


CZMLAAO ML-11 LOGIC T 

HARDWARD TEST SECTION 

| = - 3965 = ML4 
3966 ; 
3967 
3968 ; 3070 
3969 ; 3071 
3970 ; 3072 
3971 ; 3073 
3972 : 3074 
3973 ; 3075 
3974 ; 3076 
3975 ; 3077 
3976 ; 3078 
3977 ; 3079 
3978 ; 3080 
3979 ; 3081 
3960 ; 3082 
3981 ; 3083 
3982 ; 3084 
3983 ; 3085 
3984 ; 3086 
3985 ; 3087 
3986 ; 3088 
3987 ; 3089 
3988 ; 3090 
3989 ;: 3091 
3990 ; 3092 
3991 ; 3093 
3992 ;: 3094 
3993 ; 3095 
3994 ; 3096 
3995 ; 3097 
3996 ; 3098 
3997 ; 3099 
3998 ;: 3100 
3999 ; 3101 
4000 ; 02 


ES 


pare a x 
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routine RD_PD (TST_PAT, index, ERR_FLG) : novalue = 


14 


. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
1 
. 
1 
. 
' 
. 
' 
. 
' 
. 
! 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
1 
. 
' 
. 
‘ 
. 
' 
. 
' 
. 
1 
. 
' 
. 
1 
* 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
' 
. 
' 
. 
‘ 
‘ 
. 
' 
. 
' 
. 
' 
. 
‘ 
. 
‘ 
. 
' 
. 
' 
. 
1 
. 
' 
. 


begin 


¥ 
FUNCTIONAL DESCRIPTION: 


COMPARES THE CONTENTS OF THE 
PROM DATA REGISTER 

WITH THE MASKED DATA PATTERN 
GENERATED BY THE MACRO ‘WRT_MASK" 


IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘ERR FLG' IS 
24 A ONE TO INDICATE THE 


FORMAL PARAMETERS: 


TST_PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE RFGISTER UNDER TEST 


INDEX 

USED BY THE MACRO WRT_MASK TO 

SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


ERR_FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 

OF THE ROUTINE CALL. 


IMPLICIT INPUTS: 
WT _DATA 


GETS LOADED WITH THE GENERATED 
WRT MASK DATA PATTERN THUS ALLOWING 
CALCER TO PRINT FAILING GOOD DATA. 


RD_DATA 
GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 
LOBA 


GLOBAL LOCATION WR_DATA 
AND RD_DATA LOADED WITH GOOD 
AND BAB REGISTER DATA 


TOPS=-20 Bliss-16 V2(206). 
PA:<NEALE>BL2ML4.BLI.2 (29) 


SEQ 0107 


CZMLAAO ML-11 LOGIC TEST 
HARDWARD TEST SECTION 


4021 ;ML4 
ose ; 


ae ed el a onl aed ant cl el al al cecal 
WWAIWAIWANIWEPO POPU POP POPOPO 
FW - O COONS wr 


4044 016040 004167 


5 6 
rr td 016100 016100 


PARXEXEAAAAASAAASASO 
el ee ce ee ee ee ed ed ed 

Yeenasse 
FAQNMNONANANOLOL 

oS 

—_ 

So 

™m 

on 

~ 


See sennnnees 
= Fe a a at et 
fololelelol=a) 
WWWPoTor 
mo OOon 
. *. — . *. . . — = . a . — 
NAQUIUSE 
J 
WWW WNW WW 


if .WI_DATA neq .RD_DATA then 


WRT 
-MLB 


MACRO M1113 23-OCT-80 09:11 


ASK; 


A 
Do 


PROM RW = ZERO; 
DAT_BM = ZERO; 


end; 
165742 


NNN SO 


0 
000010 


173522 


000010 
173632 
173624 


r . IGNORE; 


RD.PD: JSR R1,$SAVE2 


18: 


CLR a10(SP) 


BISB #100 ,aML .REG+120 
BISB #10,0ML.REG+120 


MOV le 


ASL R 
ASL RO 
ASL RO 


RO,R 
MOV R2,WT.DATA 


MOV QML .REG+230,R2 
BIS ML .REG+6(R1) ,R2 


MOV R2,RD.DATA 


; Routine Size: 47 words | 
; Maximum stack depth per invocation: 3 words 


e 9 
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.ERR_FLG = ONE; 


RO,R1 
MOV ML.REG#2(R1) ,RO 


14(SP),R 
BIC ML .REG+4(R1) ,RO 
MOV Ns tadaalie g 


CMP oe 


™ #1,a10(SP) 
BICB  #100,aML.REG+120 
BICB #10,aML .REG+120 


44 TOPS=20 Bliss-16 V2(206 
:32 PA: <NEALE>BL2ML4.BL.1.2 


'CLEAR ERROR FLG 

'SET PROM READ WRITE 

'SET DATA DIAG MODE 

'SAVE THE DATA WRITTEN TO THE REGISTER 
'READ AND SAVE THE REGISTER 


'READ THE REG FOR WRT_MASK 
'SET ERROR FLAG IF NEQ 


'CLEAR PROM READ WRITE 
!CLEAR DATA DIAG MODE 


ERR.FLG 


Be Se Be Be Be 


INDEX,* 


; TST.PAT,* 


*,ERR.FLG 


SEQ 0108 
) 
(29) 


7% 
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HARDWARD TEST SECTION SEQ 0109 


4076 ;ML4 22-0c 44 TOPS=20 Bliss-16 V2(206) 
4077 ; 22-0¢ :32 PA:<NEALE>BL2ML4.BLI.2 (30) 


routine WRT_EL (TST_PAT, index) : novalue = 
begin 


\+4 

! FUNCTIONAL ohaat ine tae 

DUMMY ROUTINE CALL TO ASSIST IN THE READ 
URITE REGISTER ALGORITHEM 


: FORMAL PARAMETERS: 
TST PAT 
DATA PATTERN TO BE MASKED AND 


COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST 


INDEX 

USED BY THE MACRO WRT_MASK TO 

SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


' 
' ERROR LOCATION REG IS READ ONLY 
return; 
5 end; 
016176 000207 WRT.EL: RTS PC ; 3135 


2 
3 
: ; Routine Size: 1 word 
0 
1 


WIWNIWWNIWN WNW NINN NNN NAW NWN AAA ANNNWNw 
ec a ce cD cel ce cet cee cae a ce ce a ce ce ce aD cae ce ce ce ee oe oe ed 
HPPA AAMT SB EE EP VIWINS 
OODWNA NEW O ODNAUEF WN - OOONOWM 


= 
oO 
Oo 
nm 

Bete Se Be Be Be Se Se Ge Se Be Se Be Se Se SH Se Se Se Se Ge Ge Se Se Ge Se 


: Maximum stack depth per invocation: 0 words 


CZMLAAQO ML-11 
HARDWARD TEST 


7ML4 


LOGI 
SECT 


ON 


WNWAIWNIWNLAN NWN NWN NNN NNW WANN WANN NW ANN AIAN NNNNANWNWW 
ee ee a a et a 3 ot ot ot ot ot SS tt I I 
OOOO OOO OO OW DW WH WOO DW OO 0 00 00 SI NI SI SIN SS NN NSS AAAAAAOAO 
OO NAW WD HO OD NOAM EWN — 0 OONAUE WN 0 OONOAUE WN 


C TEST 
] 


2 
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routine RD_EL (TST_PAT, 


index, ERR_FLG) 
begin 


: novalue = 


ae 
FUNCTIONAL DESCRIPTION: 


COMPARES THE CONTENTS OF THE 
FRROR LOCATION REGISTER 
WITH THE CONTENTS OF TST_PAT. 


IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘ERR FLG’ IS 
4} a A ONE TO INDICATE THE 


FORMAL Mm 
TST_P 


DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST 


' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

! 

INDEX 

USED BY THE MACRO WRT_MASK TO 
SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 

ERR_FLG 

CONTAINS THE ADDRESS (PASSED BY REt) 
OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 
| OF THE ROUTINE CALL. 

i 

i 

i 

i 

' 

\ 

i 

\ 

i 

i 

i 

i 

i 

i 

i 

is 


IMPLICIT re 
WT _DAT 


ets. LOADED WITH THE GENERATED 
WRT MASK DATA PATTERN THUS ALLOWING 
CALCER TO PRINT FAILING GOOD DATA. 


RD_DATA 

GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 
GLOBAL LOCATION WR_DATA 
AND RD_DATA LOADED WITH GOOD 
AND BAB REGISTER DATA 


.ERR_FLG = ZERO; 


TOPS=20 Bliss-16 Vv2(206) 
PA:<NEALE>BL2ML4.BLI.2 (31) 


SEQ 0110 


CZMLAAO ML=11 L 
HARDWARD TEST S 


sMLG 


0 
016236 


0G 
EC 


IC 1 
TION 


000207 


EST 


H 


9 
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22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
F 22-0ct-1980 10:45:32 PA:<NEALE>SL2ML4.BLI.2 (31) 

WT_DATA = ,TST_PAT; 'SAVE THE DATA WRITTEN TO THE REGISTER 

RD_DATA = .MLEL; ‘READ AND SAVE THE REGISTER 

if .RD_DATA neq .WI_DATA then .ERR_FLG = ONE; 'READ REGISTER FOR WI_DATA 

end; 
000002 RD.EL: CLR a2(SP) ; ERR.FLG 
000006 173456 MOV 6(SP),WT.DATA ; TST.PAT,* 
173702 173452 MOV @ML .REG*+220,RD.DATA i 
173446 173442 “oe ae DATA NE ABATS ; 

BEQ 
000001 000002 MOV #1,a2(SP) ; * ERR.FLG 
1$: RTS PC ; 


; Routine Size: 16 words | . 
; Maximum stack depth per invocation: 


7 


0 words 


SEQ 0111 


CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 


7ML4 


WNW NAW ANNNWNWNWNAWNANw 


PIMIMIMIPMPONMOPY POPS AP PY Pero ronrynryfryd 
WWANWWN AWWW PO PoPorororornrnn 
AUF WN—OVONAUS WOO 


016240 000207 


ie. 
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routine WRT_EE (TST_PAT, index) : novalue = 


begin 


++ 

; shopeshder “¥~ hint tee tae 

DUMMY ROUTINE CALL TO ASSIST IN THE READ 
URITE REGISTER ALGORITHEM 


FORMAL oy bees 
TST_P 


DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST 


INDEX 

USED BY THE MACRO WRT_MASK TO 

SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


' ECC ERROR REGISTER IS READ ONLY 
return; 
end; 


WRT.EE: RTS PC : 


; Routine Size: 1 word 


: Maximum stack depth per invocation: 0 words 


TOPS=20 Bliss-16 v2(206) 


PA:<NEALE>BL2ML4.BLI1.2 (32) 


SEQ 0112 


3219 


1.9 
EST MACRO M1113 23-OCT-80 09:11 PAGE 127 


CZMLAAO ML-11 LOGIC T ; 
HARDWARD TEST SECTION SEQ 0113 
4258 ;ML4 22-Oct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
4259 ; 22-Oct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (33) 


routine RD_EE (TST_PAT, index, ERR_FLG) : novalue = 
begin 


'e4¢ 


: FUNCTIONAL DESCRIPTION: 


COMPARES THE CONTENTS OF THE 
ECC ERROR REGISTER WITH TST_PAT. 


IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘'ERR_FLG'’ IS 
734} pete A ONE TO INDICATE THE 


FORMAL a eames 
TST_P 


; i 
' i 
2 i 
; i 
; i 
; i 
4 i 
; i 
“ i 
: i 
4277 ; DATA PATTERN TO BE 
4278 ; 3261 | COMPARED AGAINST THE CONTENTS 
2 i 
: i 
> i 
: i 
7 i 
4 i 
F! i 
3 i 
- i 
i i 
i 
: i 
i 
; i 
i 
; i 
2 i 
i 
; i 
- i 
: i 
2 i 
; i 
. i 
i 
i 
: i 
ie 
L 





OF THE REGISTER UNDER TEST. 


INDEX 
USED BY THE MACRO MLEE TO 
SELECT THE CURRENT REGISTERS ADDRESS. 


ERR_FLG 

CONTAINS THE ADDRESS (PASSED 

BY REF) OF THE CALLERS ERROR FLG TO ENABLE 
THE CALLER TO EXAMINE THE ERROR STATUS 

OF THE ROUTINE CALL. 


IMPLICIT vo te 
WT _DAT 


gets LOADED WITH THE TST_PAT 
THUS ALLOWING CALLER TO PRINT 
THE FAILING DATA. 


RD_DATA 
GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 
GLOBAL LOCATION WR_DATA 
AND RD_DATA LOADED WITH GOOD 
AND BAB REGISTER DATA 


3292 -ERR_FLG = ZERO; ‘CLEAR THE ERROR FLAG 
3293 WT _DATA 
Soe RD_DATA 


.TST pat: 'SAVE DATA WRITTEN TO IHE REGISTER 
“MLEE; 'READ AND SAVE THE REGISTER 


CZMLAAO ML-11 LOG 


kK 9 
IC TEST MACRO M1113 23-OCT-80 09:11 PAGE 128 
‘HARDWARD TEST SECTI : 


ON « SEQ 0114 


| 6316 5m@L4 CO” 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
ate 3 22-Oct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (33) 
rt Ht ; $598 #f .RD_DATA neq .WT_DATA then .ERR_FLG = ONE; ‘READ MLEE FOR TST_PAT 
4319 : 3298 'SET THE ERROR FLAG IF NEQ 
tase ; 3299 end; 
4328 016242 005076 000002 RD.EE: CLR a2(SP) ; ERR.FLG 3292 
4329 016246 016667 000006 173414 MOV 6(SP),WT.DATA ; TST.PAT,* 3293 
4330 016254 017767 173630 173410 MOV QML ..REG+210,RD.DATA : 3294 
4331 016262 026767 173404 173400 CMP RD.DATA,WT.DATA : 3296 
4332 016270 001403 BEQ 1$ 
4333 016272 012776 000001 000002 MOV #1,a2(SP) : *,ERR.FLG 
tte 016300 000207 1$: RTS PC : 3244 
4336 ; Routine Size: 16 words 
rt FH : Maximum stack depth per invocation: 0 words 
4343 





— SS 


' 


CZMLAAO ML-11 L 
'HARDWARD TEST S$ 


| 7ML4 


4346 ; 


= , > 
xy Ww 
an uw 
ou oa 
Se Ge Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge & 


L_ 9 
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OGIC TEST MACRO M1113 23-OCT-80 09:11 
ECTION 
22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 
3300 routine WRT_D1 (TST_PAT, index) : novalue = 
3301 begin 
3302 
33503 '++ 
3304 |! FUNCTIONAL DESCRIPTION: 
3305! LOADS THE DATA DIAG REG 1 WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
3306 !' FORMAL PARAMETERS 
3307 |! TST_PAT 
3308 CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 
3310 =! USED BY THE MACRO WRT MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 
ae FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 
3313 
3314 DAT_DM = ONE; 'SET DATA DIAG MODE 
3315 MLDT = WRT MASK; ‘LOAD MLD1 WITH GENERATED WRT_MASK PATTERN 
3316 DAT_DM = ZERO; ‘CLEAR DATA DIAG MODE 
3317 end; 
004167 165500 WRT.D1: JSR R1,$SAVE2 : 
152777 000010 173504 BISB m6, SAL REG+120 : 
016600 000010 MOV 10(SP) RO : INDEX,* 
006300 ASL 8 
006300 ASL RO 
006300 ASL RO 
010001 MOV RO,R : 
016100 011702 MOV ML. REG#2(RI). RO 
056600 000012 BIS 12(SP) ,RO ; TST.PAT,* 
046100 011704 BIC ML .REG#+4(R1),RO 
016102 011706 MOV ML .REG+6(R1) ,R2 
050002 BIS ae R2 
010277 173512 MOV QML .REG+170 
142777 000010 173434 BICB ri6. aML .REG+120 ; 
000207 TS ; 


; Routine Size: : ; 
; Maximum- stack depth per invocation: 


26 words 


3 words 


SEQ 0175 


(34) 





3316 
3300 


CZMLAAO ML=11 LOGIC TEST 


HARDWARD TEST SECTION 


4398 ;ML4 

4399 ;: 

4400 

4401 ; 3318 
4402 ; 3319 
4403 ; 3320 
4404 ; 3321 
4405 ; 3322 
4406 ; 3323 
4407 ; 3324 
4408 ; 3325 
4409 ; 3326 
4410 ; 3327 
4411; 3328 
4412 ; 3329 
4413 ; 3330 
4414 ; 3331 
4415 ; 3332 
4416 ; 3333 
4417 ; 3334 
4418 ; 3335 
4419 ; 3336 
4420 ; 3337 
4421 ; 3338 
4422 ; 3339 
4423 ; 3340 
4424 ; 3341 
4425 ; 3342 
4426 ; 3343 
4427 ; 3344 
4428 ; 3345 
4429 ; 3346 
4430 ; 3347 
4431 ; 3348 
4432 ; 3349 
4433 ; 3350 
4434 ; 3351 
4435 ; 3352 
4436 ; 3353 
4437 ; 3354 
4438 ; 3355 
4439 ; *3356 
4440 ; 3357 
4441 ; * 3358 
4442 ; 3359 
4443 ; 3360 
4444 ; 3361 
4445 ; 3362 
4446 ; 3363 
4447 ; 3364 
4448 ; 3365 
4449 ; 3366 
4450 ; 3367 
4451 ; 3368 
4452 ; 3369 


mM 9 
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22-Oct-1980 10: 
22-Oct-1980 10: 


routine RD_D1 (TST_PAT, index, ERR_FLG) : novalue = 
begin 


14+ 
hha aa DESCRIPTION: 


COMPARES THE ehh a he OF THE 

DATA DIAG REGISTER 

WITH THE MASKED SATA PATTERN 
GENERATED BY THE MACRO ‘‘WRT_MASK’’. 


IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘'ERR_FLG'’ IS 
ass iente A ONE TO INDICATE THE 


FORMAL PARAMETERS: 


TST PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE RFGISTER UNDER TEST. 


ee 


INDEX 

USED BY THE MACRO WRT_MASK 

SELECT THE CURRENT RECTSTERS. ADDRESS, 
FORCED HI, FORCED LO AND DON''T CARE 
MASK INFORMATION. 


ERR_FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 

OF THE ROUTINE CALL. 


sate | INPUTS: 
T_DATA 


wT eETS LOADED WITH THE GENERATED 
WRT MASK DATA PATTERN THUS ALLOWING 
CALCER TO PRINT FAILING GOOD DATA. 


RD_DATA 
GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 
GLOBAL LOCATION WR_DATA 
AND RD_DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (35) 


SEQ 0116 


ramen —— 


|CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 


| 4454 ;ML4 
4455 ; 


16366 


a 
co 
oo 
DODOOS és we Se we Oe we we Se Se Se Se we HH se Oe Oe BH Se Oe Se Oe OE Oe 
— 
o 
Ww 
~ 
~m 


4507 016514 


016100 


- 000040 
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ZERO; 


.ERR ie + we 
DAT_BM = 
ML_FUNC = 
DAT_ CLK = ONE; 
if .REG_INIT_FLG IS_SET 
then 
begin 
CLR_MBUS; 
DAT_DM = ONE; 
REG_INIT_FLG = 
end; 
WT_DATA' = WRT_MASK; 


RD-DATA = .MLD1 


if .RD_DATA neq .WT_DATA 


CLR_MBUS; 
end; 


165414 

173414 
173244 000001 
173274 


173256 
173324 
000012 


011702 


RD.D1: 


1$: 


then .ERR_FLG 


N 
PAGE 


= 
Ww 
— 


R1,SSAVE2 
a10(SP) 
#10,aML.REG+120 
#77,aML.REG 
#61,0ML.REG 
#20,aML.REG+120 
REG. INIT.FLG,A1 


1$ 
#40 ,aML .REG+40 
M R1 


R1_aML .REG+40 
#10, aML.REG+120 
REG. INIT.FLG 
12(SP) ,RO 

RO 


RO 
RO 


RO,R1 
ML .REG+2(R1) ,RO 


= ONE; 


22-0ct- 


1980 10:47: 
22-0ct-1980 10:45: 


'CLEAR THE my FLG 
‘SET DATA DIAG MODE 

LOAD MLCS1 WITH WRITE FUNCTION 
iO A DATA CLK 
'SEE IF CALLER IS REG INIT TEST 
'SET ERROR FLAG IF NEQ 


'CLEAR MBUS TO GENERATE INIT DATA 


'SAVE THE DATA WRITTEN TO THE REGISTER 
'READ AND SAVE THE REGISTER 


'READ MLD1 FOR WRT_MASK 


'SET ERR_FLG IF NEQ 
'CLEAR TARE MBUS 


+ ERR.FLG 


3; INDEX,* 


ale TOPS=20 Bliss-16 V2(206) 
32 PA:<NEALE>BL2ML4.BLI.2 (35) 


SEQ 0117 


B_10 
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/MARDWARD TEST SECTION SEQ 0118 
4509 7ML4 22-Oct-1980 10:47:44 TOPS 
4510 ; 22-Oct-1980 10:45:32 PA:< 


a I$ 14(SP) ,RO ; TST.PAT,* 
4 IC ML ..REG#+4(R1) ,RO 

6 ROR “REG+6(R1) ,R2 

6 MOV Re, uf 

2 MOV amc. REG 170, RD.DATA ; 3386 
6 CMP RD.DATA,WT.DATA ; 3388 


2 
2 
2$ 
0 MOV #1,010(SP) ; *,ERR.FLG 
4 2$: BISB #40, we 


POPUP 2 2 Ss SS SS SS 
WN] 9 CONOUES WN 


= 
uw 
~m 


4525 016612 150277 173122 BISB R2,QML.REG+40 
ret | 016616 000207 RTS PC ; 3318 


4528 ; Routine Size: 77 words 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

45 

4524 016604 142777 000007 173126 BICB #7, QML .REG+40 
4529 ; Maximum stack depth per invocation: 3 words 

| 


| 


r— -- ~— 


CZMLAAO ML=11 L 
/HARDWARD TEST S$ 


| 4537 
| 


7ML4 


016620 


016702 


mo 


000207 


C_10 
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a ee (TST_PAT, index) : novalue = 


egin 


le4 

' ght ste bath of 

LOADS THE — DIAG REG 2 WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
rec 


et DATA PATTERN TO BE LOADED IN THE REGISTER. 


USED BY THE MACRO WRT_MASK 10 SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 


DAT_DM = ONE; 'SET DATA DIAG MODE 
MLD2 = WRT MASK; ‘LOAD MLD2 WITH GENERATED WRT_MASK PATTERN 
DAT_DM = ZERO 'CLEAR DATA DIAG MODE 
end; 
165162 WRT.D2: JSR R1,$SAVE2 = 
000010 173166 BISB #10, aAL. REG+120 i 
000010 MOV 10($P),RO ; INDEX,* 
ASL RO 
ASL RO 
ASL RO 
MOV RO,R1 
011702 MOV ML ..REG+2(R1),RO 
000012 BIS 12(SP),RO : TST.PAT,* 
011704 BIC ML ..REG+4(R1),RO 
011706 MOV ML ..REG+6(R1) ,R2 
BIS RO,R2 
173204 MOV R2,aML.REG+200 . 
000010 173116 B1CB #10, aML .REG+120 : 
; Routine Size: 26 words 


: Maximum stack depth per invocation: 3 words 


4 


144 TOPS-20 Bliss-16 V2( «9 
:32 PA:<NEALE>BL2ML4.BLI1 


SEQ 0119 


3409 
3393 


| 


CZMLAAO ML=11 LOGIC TEST 
'HARDWARD TEST SECTION 


| 
| 4590 =ML4 


en 
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22-0ct-1 
22-0ct-1 


4591 ; 

4592 

tat, 3 a3 pee ae (TST_PAT, index, ERR_FLG) : novalue 
° eqin 

4595 ; 3413 . 

4596 ; 3414 144 

t+ 4 ; ei i ' FUNCTIONAL DESCRIPTION: 

4599 ; 3417 I COMPARE THE CONTENTS OF THE 

4600 ; 3418! DATA DIAG REGISTER 2 

4601 ; 3419! WITH THE MASKED DATA PATTERN 

4602 ; 3420 | GENERATED BY THE MACRO ‘'WRT_MASK''. 

4603 ; 3421 | IF THE COMPARE IS NOT EQUAL “THEN THE 

4604 ; 3422! FORMAL PARAMETER ‘‘ERR 1S 

rok ; 3133 | ASS1GNED A ONE TO INDICATE THE 

4607 : 3425 | : 

4608 ; 3426 | FORMAL PARAMETERS: 

4610 : 3428 | TST_PAT 

4611 ; 3429! DATA PATTERN TO BE MASKED AND 

4612 ; 3430 | COMPARED AGAINST THE CONTENTS 

asi? ; 3631 | OF THE REGISTER UNDER TEST. 

4615 : 3433 | INDEX 

4616 ; 3434 | USED BY THE MACRO WRT_MASK TO 

4617 ; 3435 | SELECT THE CURRENT REGISTERS ADDRESS 

4618 ; 3436 FORCED HI, FORCED LO AND DON'T CARE 

ret 3 ot Hf ! MASK INFOMATION. 

4621 : 3439 I ERR_FLG 

4622 ; 3440 | CONTAINS THE ADDRESS (PASSED BY REF) 

4623 ; 3441! OF THE CALLERS ERROR FLG TO ENABLE THE 

4624 ; 3442 | CALLER TO EXAMINE THE ERROR STATUS 

63 ; a6? | OF THE ROUTINE CALL. 

4627 : 3445 | IMPLICIT T INPUTS: 

4629 ; 3447! warts LOADED WITH THE GENERATED 

4630 ; 3448 | WRT MASK DATA PATTERN THUS ALLOWING 

ret ; a8? ! CALCER TO PRINT FAILING GOOD DATA. 

4633 : 3451 RD_DATA 

4634 ; 3452 =! GETS LOADED WITH DATA READ FROM THE 

4635 ; 3453 | REGISTER THUS ALLOWING CALLER 

ret ; $428 | TO PRINT FAILING BAD DATA. 

4638 : 3456 § IMPLICIT OUTPUTS: 

4639 ; 3457 | GLOBAL LOCATION WR_DATA 

4640 ; 3458 AND RD_DATA LOADED WITH GOOD 

641 : 3459 # AND BAB REGISTER DATA 

4643 : 3461 i- 

4644 : 3462 


PA:<NEALE>BL2ML4.BLI.2 (37) 


SEQ 0120 
TOPS=20 Bliss-16 V2(206) 


CZMLAAO ML=11 LOGIC TEST 
HARDWARD TEST SECTION 


| 4666 5 MLG 
4647 ; 

| 4648 

| 4649 3463 

4650 : 3464 
4651 ; 3465 
4652 : 3466 
4653 : 3467 
4654 : 3468 
4655 ; 3469 
4656 ; 3470 
4657 : 3471 
4658 ; 3472 
4659 : 3473 
4660 ; 3474 
4661 ; 3475 
4662 ; 3476 
4663 : 3477 
4664 : 3478 
4665 ; 3479 
4666 ; 3480 
4667 : 3481 
4668 : 3482 
4669 ; 3483 
4673 
4677 016704 004167 
4678 016710 005076 
4679 016714 152777 
4680 016722 142777 
4681 016730 152777 
4682 016736 152777 
4683 016744 026727 

016 001021 

4685 016754 152777 
4686 016762 016701 
4687 016766 042701 
4688 016772 142777 
4689 017000 150177 
4690 017004 152777 
4691 017012 005067 
4692 017016 016600 
4693 017022 006300 
4694 017024 006300 
4695 017026 006300 
4696 017030 010001 
4697 017032 016100 
4698 017036 056600 
4699 017042 046100 
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-ERR_FLG = ZERO; 
DAT_BM = ONE ; 
ML_FUNC = write; 
DAT_CLK = ONE; 
if .REG_INIT_FLG IS_SET 
then 
begin 
CLR_MBUS; 
DAT_DM = ONE; 
REG_INIT_FLG = ZERO; 
end; 
WT_DATA = WRT_MASK; 
RD_DATA = .MLB2; 
if .RD_DATA neq .WT_DATA 
CLR_MBUS; 
end; 
165076 RD.D2: JSR 
000010 CLR 
000010 173076 BISB 
000077 172750 BICB 
000061 172742 BISB 
000020 173054 BISB 
172726 000001 as 
000040 172756 BISB 
173202 MOV 
177770 BIC 
000007 172740 BICB 
172734 BISB 
000010 173006 BISB 
172660 CLR 
000012 1$ MOV 
ASL 
ASL 
ASL 
MOV 
011702 MOV 
000014 BIS 
011704 BIC 


then 


PAGE 


.ERR_FLG = 


R1,$SAVE2 

a10(SP) 

He ae) th 
-REG 


#61,QML.REG 
#29, amc, ~REG+120 
| -INIT.FLG,#1 


$ 
#40 ,aML .REG+40 
R1 


R1.aML.REG+40 
#10,aML.REG+120 


RO,R1 
ML .REG+2(R1) ,RO 
14(SP),R 

ML .REG+4(R1) ,RO 


ONE; 


22-Oct-1980 10:47:44 
22-Oct-1980 10:45:32 


'CLEAR ERROR FLAG 

‘SET DATA DIAG MODE 
'LOAD WRITE FUNC TO CS1 
‘DO A DATA CLOCK 


‘SEE IF CALLER IS REG INIT TEST 
!CLEAR MBUS TO GENERATE INIT DATA 


TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (37) 


'SAVE THE DATA WRITTEN TO THE REGISTER 
'READ AND SAVE THE REGISTER 


'READ MLD2 FR WRT_MASK PATTERN 


'SET ERROR FLAG IF NEQ 
'CLR MASS BUSS 


+ ERR.FLG 


: INDEX,* 


; TST.PAT,* 


SEQ 0121 


CZMLAAO ML-11 LOGI 
‘HARDWARD TEST SECT 


4707 017060 
4708 017066 


C TEST 
ION 


000207 


011706 


172610 
173014 
172600 


000001 
000040 
173052 
177770 
000007 
172604 


F10 
MACRO M1113 23-OCT-80 09:11 PAGE 136 


7ML4 


2$: BISB 


; Routine Size: 


; Maximum stack depth per invocation: 


ML.REG+6(R1) ,R2 
RO,R2 : 
R2,WT.DATA 

QML .REG+200,RD.DATA 
er eee 


#1,a10(SP) 
#40, aML.REG+40 
L.DUT,R2 
#177770,R2 
#7,AML.REG+40 
R2 AML .REG+40 


77 words 


3 words 


SEQ 0122 
22-0ct-1980 10:47:44 TOPS 
22-Oct-1980 10:45:32 PA:< 

3477 

3479 
*,ERR.FLG 

3411 


‘CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 


4727 ;ML4 


, 
~ 
Mm 
oo 
+ 


> 
~N 
= 
Ww 
Be Be Be Be Be Be Be Be Be Se Ge Se Se Fe Be Be Be Ge Ge Ge Be Ge Ge He Be Se Se 


4781 0 

4782 017226 
4783 017234 
4788 

4789 


046100 
016102 


050002 


009207 


G_10 
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routine WRT_D3 (TST_PAT, index) : novalue = 
, begin 
++ 


! FUNCTIONAL DESCRIPTION: 


LOADS THE DATA DIAG 
REGISTER 3 WITH A DATA PATTERN 
aT aaa BY THE MACRO 


MASK 
FORMAL PARARETERS: 


i 

i 

i 

i 

i 

i 

i CORRENT DATA PATTERN TO BE 
LOADED IN THE REGISTER. 
INDEX 

USE BY THE MACRO WRT_MASK 
| TO SELECT THE CURRENT REGISTERS 
i 

i 

i 

= 


SEQ 0123 


744 TOPS=20 Bliss-16 V2(206)_ 
32 PA:<NEALE>BL2ML4.BiI.2 (38) 


ADDRESS, FORCED HI, FORCED 
LO AND DON'T CARE MASK 
INFORMATION. 
~ DAT_D DM = 'SET DATA DIAG MODE 
MLE2_ MASK = 4, 000377"; 'MASK OUT ECC CRC WORD BITS 
MLE2 = WRT_MASK; ‘LOAD MLE2 WITH GENERATED WRT_MASK PATTERN 
MLE2_MASK = ge" 100300": "RESTORE MASK 
DAT_BM = ZERO 'CLEAR DATA DIAG MODE. 
end; 
164644 WRT.D3: JSR R1,$SAVE2 ; 
000010 172650 BISB #10, aML.REG+120 ; 
000377. 172710 MOV #377,ML.REG+166 ; 
000010 MOV 10(SP),RO : INDEX,* 
ASL RO 
ASL RO 
ASL RO 
MOV RO,R1 
011702 MOV ML ..REG+2(R1) ,RO 
000012 BIS 12(SP),RO : TST.PAT,* 
011704 BIC ML..REG+4(R1),RO 
011706 MOV ML. .REG+6(R1) ,R2 
7ML4 22-0ct-1980 10:47:44 
; 22-Oct-1980 10:45:32 
BIS RO,R2 
172640 MOV R2,aML .REG+160 
100300 172640 MOV #-77500,ML.REG+166 : 
000010 172564 818 £10. ,aML .REG+120 : 


=a 


(a 


H_10 
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CZMLAAO ML=11 LOGIC 1 
HARDWARD TEST SECTION SEQ 0124 
4791 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
rye ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (39) 
ages ; 42/8 ft Pe (TST_PAT, index, ERR_FLG) : novalue = 
Ps egin 
4796 : 3518 4 
4797 : 3519 44 
4798 ; 3520 | FUNCTIONAL DESCRIPTION: 
4800 : 3522 | COMPARES THE CONTENTS OF THE 
4801 ; 3523! DATA DIAG REGISTER 3 
4802 : 3524! WITH THE MASKED DATA PATTERN 
4803 ; 3525 GENERATED BY THE MACRO ‘'WRT_MASK"’. 
4805 : 3527 I IF THE COMPARE IS NOT EQUAL THE 
4806 : 3528 | FORMAL PARAMETER "'ERR_FLG'' IS 
aahe 3 E44 ANT A ONE TO INDICATE THE 
4809 ; 3531 | 
4810 : 3532 FORMAL PARAMETERS: 
4812 : 3534 TST_PAT 
4813 ; 3535! DATA PATTERN TO BE MASKED AND 
4814 : 3536 COMPARED AGAINST THE CONTENTS 
4815 ; 3537 OF THE REGISTER UNDER TEST. 
4817 : 3539 | INDEX 
4818 : 3540 | USED BY THE MACRO WRT_MASK TO 
4819 : 3541 SELECT THE CURRENT REGISTERS ADDRESS, 
4820 : 3542 |! FORCED HI, FORCED LO AND DON'T CARE 
482i ; 3543 ; MASK INFORMATION 
4623 : 3545! ERR FLG 
4824 ; 3546 |! CONTAINS THE ADDRESS (PASSED BY REF) 
4825 ;: 3547 | OF THE CALLERS ERROR FLG TO ENABLE THE 
4826 : 3548 |. CALLER TO EXAMINE THE ERROR STATUS 
aa5e 3 teen OF THE ROUTINE CALL. 
3 BB | muy ys: 
4831 : 3553 GETS LOADED WITH THE GENERATED 
4832 ; 3554 |! WRT MASK DATA PATTERN THUS ALLOWING 
re th ; $322 CALCER TO PRINT FAILING GOOD DATA. 
4835 : 3557 | RD_DATA 
4836 ; 3558 =! GETS LOADED WITH DATA READ FROM THE 
4837 : 3559! REGISTER THUS ALLOWING CALLER 
4338 ; 3560 TO PRINT FAILING BAD DATA. 
4840 : 3562 | IMPLICIT OUTPUTS: 
4841 ; 3563! GLOBAL LOCATION WR_DATA 
4842 ; 3564 AND RD_DATA LOADED WITH GOOD 
re : $22 AND BAB REGISTER DATA 
4845 : 3567 i-- 


Te, 


CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 


4847 ;ML4 
4848 ; 


co 
o 
o = Oo 
Se Se Se Oe Be Oe Be Be Se Be Be Be Be Be Se SHH Be BH Se Se SHS 


4685 017270 
4886 017276 
4887 017304 
4888 017312 


4900 017370 


PUPS STAI UTI UT 


010001 
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. IGNORE; 


-ERR_FLG = ZERO; 
MLE2-MASK = %0'000377'; 
DAT_BM = ONE; 

ML_FUNC = write; 
DAT_CLK = ONE; 
if .REG_INIT_FLG IS_SET 
then 
begin 
CLR_MBUS; 
DAT_DM = ONE; 
REG_INIT_FLG = ZERO; 
end; 
WT_DATA = WRT_M 
RD_DATA = MLED oy 


if .WT_DATA neq .RD_DATA then 


MLE2_MASK 
CLR_MBUS; 
end; 
164544 
000010 
000377 172612 
000010 172536 
000077 172410 
000061 172402 
000020 172514 
172366 000001 
000040 172416 
172642 
177770 
000007 172400 
172374 
000010 172446 
172320 
000012 


= %0'100300'; 


RD.D3: 


PAGE 


R1 SSAvE2 

a16(s§ 

a377> :. REG+166 
#10,aML .REG+120 
#77. aML.REG 
#61. aML.REG 
#20, aML.REG+120 
REG. INIT.FLG,#1 


1$ 
#40, oT iat 


R1_aML .REG+40 
#10, aML.REG+120 
REG.INIT.FLG 
12(SP) ,RO 

RO 

RO 
RO 
RO,R1 


-ERR_FLG = ONE; 


SEQ 0125 
TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (39) 
'CLEAR ERROR FLAG 
'SET DATA DIAG MODE 


'LOAD WRITE FUNCTION TO MLCS1 
'DO A DATA CLOCK 


'SEE IF CALLER IS_ REG INIT TEST 
‘CLEAR MBUS TO GENERATE INIT DATA 


'SAVE THE DATA WRITTEN TO THE REGISTER 
'READ AND SAVE THE REGISTER 


!'READ THE REG FOR WRT_MASK 


!CLEAR THE MASS BUS 


3 3516 
; ERR.FLG 3569 
; 3570 
; 3571 
: 3572 
: 3573 
: 3575 
; 3577 
3 3579 
; 3580 
; INDEX,* 3583 


CZMLAAO Mi-11 LOGIC TEST 


HARDWARD TEST SECTION 


4902 
4903 


4904 
4905 017372 


4910 017414 
4911 017420 
4912 017424 
4913 017430 
4914 017434 
4915 017442 


000207 


NeNN SOR 


000007 
172230 


172230 
000010 


172406 
172252 


172234 


2$: 


: Maximum stack depth per invocation: 
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L4 


Routine Size: 


J 10 
PAGE 140 


ML. ++ ot all RO 
14(SP), 


ML. REGSECRI), RO 
ML .REG+6(R1) ,R2 


RO,R2 
R2,WT.DATA 

AML .REG+160,R2 
ML.REG+6(R1) ,R2 
R2,RD.DATA 
pene »RD.DATA 


#1,a10(S 
4-77500, Ml. REG+166 
#40, QML .REG+40 


Re, ,O@ML .REG+40 


86 words 


3 words 


; TST.PAT,* 


; *,ERR.FLG 


22-0c t-1980 
22-0ct-1980 


10: 
10:4 


47:44 
:32 


5 


SEQ 0126 


TOPS 
PA:< 


3584 


3586 


3588 


3516 


| ae 
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‘'HARDWARD TEST SECTION SEQ 0127 
4934 ;ML4 22-0ct-1980 10:47:44 TOPS=-20 Bliss-16 V2(206) 
ret : 22-Oct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (40) 
| 4937; 3591 routine WRT_DS (TST_PAT, index) : novalue = 
4938 ; 3592 begin 
4939 : 3593 
4940 ; 3594 !4+ 
- 4941; 3595 ' FUNCTIONAL ket tel tae ‘ 
4942 ; 3596! DUMMY ROUTINE CALL TO ASS'ST IN THE READ 
4943 ; 3597 | WRITE REGISTER ALGORITHEM 
4944 ; 3598 
4945 ; 3599 i FORMAL PARAMETERS: 
4946 ; 3600 |! TST_PAT 
4947 ; 3601 |! DATA PATTERN TO BE MASKED AND 
4948 ; 3602 | COMPARED AGAINST THE CONTENTS 
4949 ; 3603 | OF THE REGISTER UNDER TEST 
4950 ; 3604! 
4951 ; 3605! INDEX 
4952 ; 3606 USED BY THE MACRO WRT_MASK TO 
4953; 3607! SELECT THE CURRENT REGISTERS ADDRESS, 
4954 ; 3608 FORCED HI, FORCED LO AND DON'T CARE 
4955 ; 3609 | MASK INFORMATION. 
4956 ; 3610! 
4957 ; 3611 f-- 
4958 ; 3612 
4959 ; 3613 °*! 
4960 ; 3614 ! DRIVE STATUS REG IS READ ONLY 
4961 ; 3615 return; 
4962 ; 3616 end; 
4966 
oak 017512 000207 WRT.DS: RTS PC ; 3591 
4972 ; Routine Size: 1 word ; 
aor ; Maximum stack depth per invocation: 0 words 
4979 


wo see 


a . a — —— « _ $$$ - ———— ———— 


/CZMLAAQ ML-11 ie 


L 10 
C TEST MACRO M1113 23-OCT-80 09:11 PAGE 142 
HARDWARD TEST SECTI 


I 
TION SEQ 0128 


| 4981 ;ML4 22-Oct-1980 10:47:44  TOPS=20 Bliss-16 v2(206) 
| 1982 ; 22-0ct-1980 10:45:32  PA:<NEALE>BL2ML4.BLI.2 (41) 
| roe ; eit oe (TST_PAT, index, ERR_FLG) : novalue = 
° eqin 

4986 ; 3619 ° 

4987 : 3620 ++ 

4988 : 3621 | FUNCTIONAL DESCRIPTION: 

4990 : 3623 | COMPARES THE CONTENTS OF THE 

4991 : 3624! DRIVE STATUS REGISTER WITH THE 

4992 ; 3625! MASKED DATA PATTERN 

real ; gost GENERATED BY THE MACRO ‘WRT_MASK'. 

4995 : 3628 IF THE COMPARE IS NOT EQUAL THEN 

499% : 3629! THE FORMAL PARAMETER ‘ERR_FLG' IS 

ros ; tt pacientes A ONE TO INDICATE THE 

4999 : 3632 | : 

3000 : 3633 | FORMAL PARAMETERS : 

5002 : 3635 TST_PAT : 

5003 ; 3636 =! DATA PATTERN TO BE MASKED AND 

5004 : 3637 | COMPARED AGAINST THE CONTENTS 

2005 ; 3638 OF THE RFGISTER UNDER TEST. 

5007 : 3640 | INDEX 

5008 : 3641! USED BY THE MACRO WRT_MASK TO. 

5009 : 3642 | SELECT THE CURRENT REGISTERS ADDRESS, 

5010 : 3643! FORCED HI, FORCED LO AND DON'T CARE 

2011 ; 3644 MASK INFORMATION. 

5013 : 3646! ERR_FLG 

5014 : 3647 | CONTAINS THE ADDRESS (PASSED BY REF) 

5015 : 3648 | OF THE CALLERS ERROR FLG TO ENABLE THE 

5016 : 3649! CALLER TO EXAMINE THE ERROR STATUS 

2017 ; 3650 OF THE ROUTINE CALL. 

3019 : 3652 IMPLICIT T INPUTS: 

5021 : 3654 wrap ts LOADED WITH THE GENERATED 

5022 ; 3655! WRT MASK DATA PATTERN THUS ALLOWING 

9544 3 sree CALCER TO PRINT FAILING GOOD DATA. 

5025 : 3658 RD_DATA 

5026 ; 3659! GETS LOADED WITH DATA READ FROM THE 

5027 ; 3660 | REGISTER THUS ALLOWING CALLER 

2028 ; 3661 ; TO PRINT FAILING BAD DATA. 

5030 : 3663 ' IMPLICIT OUTPUTS: 

5031 ; 3664! GLOBAL LOCATION WR_DATA 

5032 ;: 3665! AND RD_DATA LOADED WITH GOOD 

2035 ; 3666 AND BAD REGISTER DATA 

5035 : 3668 i-- 


r 


‘CIMLAAO ML=11 L 
[WARDWARD TEST § 


5037 ;ML4 


an 

oO 

~~ 
~m = = 
s . 2 . a . . ete 


5u75 017620 


0G 
EC 


-—o 


l 
TION 


000207 


TEST 


-ERR_FLG = a 
WT_DATA = WRT_M 
RD_DATA = MLDS. * IGNORE; 
if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 
end; 
164266 RD.DS: JSR R1,$SAVE2 
000010 CLR a10(SP) 
000012 MOV 12(SP) ,RO 
ASL RO 
ASL RO 
ASL RO 
MOV RO,R1 
011702 MOV ML .REG+2(R1) ,RO 
000014 BIS 14(SP) ,RO 
011704 BIC ML.REG+4(R1) ,RO 
011706 MOV ML .REG+6(R1) ,R2 
BIS RO,R2 
172102 MOV R2,WT.DATA 
172156 MOV AML .REG+50,R2 
011706 BIS ML. REG#6 (RI), R2 
172070 MOV R2,RD.DAT 
172062 172062 ay Hf -DATA, RD. DATA 
000001 000010 MOV #1,010(SP) 
1$: RTS PC 
; Routine Size: 35 words 


yo 
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‘CLEAR THE ERROR FLAG 


'SAVE THE DATA WRITTEN TO THE REGISTER 


'READ AND SAVE THE REGISTER 


'SET ERROR FLAG 


; Maximum stack depth per invocation: 3 words 


'READ THE REG FOR WRT_MASK 


IF NEQ 


+ ERR.FLG 
; INDEX,* 


TST.PAT,* 


*,ERR.FLG 


TOPS=20 Bliss-16 V2¢ «e 
PA:<NEALE>BL2ML4.BLI 


SEQ 0129 


3672 


3674 


3617 
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|HARDWARD TEST SECTION | SEQ 0130 
| 5086 :ML4 22-Oct-1980 10:47:44  TOPS-20 Bliss-16 v2(206) 
epee ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.8LI1.2 (42) 
5089 ; 3678 routine WRT_REG (TST_PAT, REG_SEL, index) : novalue = 
5090 ; 3679 begin ~ 
091 ;: 3680 
5092 ; 3681 ++ 
5093 : 3682 | FUNCTIONAL DESCRIPTION: 
5094 : 3683! A ROUTINE TO SELECTIVELY 
5095 : 3684 | CALLED ROUTINES WHICH 
5096 : 3685 | WRITE TO INDIVIDUAL ML11 
5097 : 3686 | REGISTERS 
5098 : 3687 | 
5099 : 3688 | FORMAL PARAMETERS: 
5100 ; 3689 =! R L 
5101 : 3690! CASE SELECT EXPRESSION TO 
5102 ; 3691! SELECT THE WRITE REGISTER 
5103 3692 |! ROUTINE TO CALLED 
5104 : 3693! 
5105 : 3694! TST PAT 
5106 ; 3695! DATA PATTERN WHICH THE SELECTED 
5107 : 3696! REGISTER WILL BE TESTED AGAINST 
5108 : 3697 | 
5109 : 3698 =! INDEX 
5110 : 3699! LOADED WITH THE ML_REG INDEX 
5111: 3700 | SELECT NUMBER OF THE REGISTER 
5112 : 3701! BEING TESTED 
5113 : 3702 | 
5114 ; 3703 | SIDE EFFECTS: 
5115 : 3704 | WHEN A WRITE REGISTER ROUTINE IS CALLED 
5116 : 3705! THE VARIABLE 'INDEX' FROM THE CALLING 
5117 : 3706! TEST IS LOADED WITH THE REGISTERS 
5118 : 3707! ML_REG INDEX NUMBER. 
5119 : 3708 | 
5120 : 3709 | THIS ENABLES THE CALLING TEST TO FIND 
5121 ; 3710 | THE FAILING REGISTER ADDRESS. 
5122 : 3711 
5123 : 3712 lee 
5124; 3713 
5125 : 3714 case .REG_SEL from 0 to 13 of ‘SELECT THE WRITE REGISTER ROUTINE CALL 
5126 ; 3715 set 
$127 ; 3716 
5128 ; 3717 }: ; 
5129 : 3718 WRT_CS1 (.TST_PAT, .index = 0); ‘CALL ROUTINE TO LOAD MLCS1 
5130 : 3719 
5131: 3720 }: ‘ 
5132 : 3721 WRT_ER (.TST_PAT, .index = 6); ‘CALL ROUTINE TO LOAD MLER 
5133 ; 3722 
5134: 3723 }: 
5135 : 3724 WRT_DA (.TST_PAT, .index = 3); ‘CALL ROUTINE TO LOAD MLDA 
5136 : 3725 
5137 ; 3726 1: 
5138 : 3727 WRT_MR (.TST_PAT, .index = 10); ‘CALL ROUTINE TO LOAD MLMR 
5139 : 3728 
5140 : 3729 [4]: 
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|HARDUARD TEST SECTION 
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3sML4 
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7664 000156 


end; 


164160 
000010 
000014 
000012 


02 
017650 
4, 
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WRT_E1 (.TST_PAT, 
): 
WRT_E2 (.TST_PAT, 
22 
WRT_PA (.TST_PAT, 
J: 
WRT_D1 (.TST_PAT, 
33 
WRT_D2 (.TST_PAT, 
(9) : 
WRT_D3 (.TST_PAT, 
]: 
WRT_PD (.TST_PAT, 
(11) : 
WRT_FE (.TST_PAT, 
J: 
WRT_EL (.TST_PAT, 
(13) 


WRT_DS (.TST_PAT, 
tes; 


WRT.REG: JSR 
M 
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~index = 13); 


~index = 14); 


.index = 8); 


-index = 15); 
-index = 16); 
index = 14); 
-index = 19); 
fader 2 17); 


~index = 18); 


index = 5); 


1980 10:47:44 
1980 10:45:32 


'CALL ROUTINE TO LOAD 


'CALL ROUTINE TO LOAD 


'CALL 


'CALL 


‘CALL 


!CALL 


'CALL 


'CALL 


'CALL 


'CALL 


ROUTINE 


ROUTINE 


ROUT INE 


ROUTINE 


ROUT INE 


ROUTINE 


ROUTINE 


ROUTINE 


TO 


TO 


TO 


TO 


TO 


TO 


TO 


TO 


LOAD 


LOAD 


LOAD 


LOAD 


LOAD 


LOAD 


LOAD 


LOAD 


TOPS=-20 Bliss-16 v2¢ <¥ 
PA: <NEALE>BL2ML4.BLI 


MLE 


MLE2 


MLPA 


MLD1 


MLD2 


MLE2 


MLPD 


MLEE 


MLEL 


MLDS 


INDEX,* 


TST.PAT,* 
REG.SEL,* 


SEQ 0131 


3678 
3718 


3714 


‘CZMLAAO ML=11 L 
HARDWARD TEST § 


5197 
5198 


199 
5200 017666 
01 017670 


wMuvviw 
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GN 
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ocd 


PAR RS LUNE 
VNC - NO 


174256 


000006 
174416 


000003 
174556 


000012 
174716 


000015 
175264 


000016 
175454 


000010 
175022 


000017 
176222 


000020 
176522 
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7ML4 


2$: 


3$: 


4$: 


5$: 


6$: 


7$: 


8$: 


9$: 


10$: 


PC ,WRT.DA 
16$ 
R1,-(SP) 
#12, (RO) 
(RO) ,-(SP) 
PC WRT.MR 
16$ 


R1,-(SP) 
#15, (RO) 
(RO) ,-(SP) 
PC WRT.E1 
16$ 
R1,-(SP) 
#16, (RO) 
(ROS ,-(SP) 
PC ,WRT.E2 
16% 


PC ,WRT.D1 
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22-0¢t-198 
22-0ct-198 


SEQ 0132 


TOPS 
PA:< 


CZMLAAO ML=11 LOGIC TEST 


HARDWARD TEST SECTION 


| 
| 
| 
| 
| 
| 
| 


MMVIII 
MKMIPYIPYPYPOPYerorse 
AASWMNAVIUVIW 
—M— COONS 
mn OoO°o 


uw 
Nm 
o 
Ww 


5264 020126 


5281 020206 000207 


000016 
177022 


000023 
175600 


000021 
176070 


000022 
176010 


000005 
177306 
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12$: MOV 


13$: MOV 


148: MOV 


15$: MOV 


16$: CMP 


; Routine Size: 


; Maximum stack depth per invocation: 


PC ,WRT.PD 
16$ 


PC ,WRT.EL 
16% 


123 words 
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5 words 


22-Oct-19 
22-Oct-19 


01 
01 


247: 
245: 


SEQ 0133 


TOPS 
PA:< 


3745 


3714 
3748 


3714 
3751 


3714 
3754 


3714 
3757 


3679 
3678 
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CZMLAAO ML=11 LOGIC 1 Cj 
HARDWARD TEST SECTION SEQ 0134 ry 
5292 :ML4 22-Oct-1980 10:47:44 TOPS=20 Bliss-16 v2(206) 
$37 ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (43) | 
5295 ; 3761 routine RD_REG (TST_PAT, REG_SEL, ERR_FLG) : novalue = | 
| 3296 : 3762 begin | 
5297 : 3763 
5298 ; 3764 \44 
5299 : 3765! FUNCTIONAL DESCRIPTION: 
5300 ; 3766! ROUTINE TO SELECTIVELY 
5301 : 3767 CALLED ROUTINES WHICH 
Oe ee 
5304 ; 3770 |! 
3302 ; gr) | ns snare: 
5307 : 3773 CONTAINS THE ADDRESS (PASSED BY REF) a 
5308 ; 3774 | OF THE CALLERS ERROR FLG TO ENABLE THE 
5309 : 3775 CALLER TO EXAMINE THE ERROR STATUS 
3310 ; 3776 OF THE ROUTINE CALL. 
5312 : 3778 SI REG_ SEL 
5313 ; 3779 | CASE SELECT EXPRESSION TO 
5314: 3780 | SELECT THE WRITE REGISTER 
3315 : 3781 | ROUTINE TO CALLED 
5317 : 3783S! TST PAT 
5318 ; 3784 | DATA PATTERN WHICH THE SELECTED . 
23)? 3 378? s REGISTER WILL BE. TESTED AGAINST 
5321 : 3787 i- 
§322 : 3788 
es82 3 had case .REG_SEL from 0 to 13 of ‘SELECT THE READ REGISTER ROUTINE CALL 
5 ; set 
5325 ; 3791 
5326 : 3792 (0) : 
3327 : 3793 RD_CS1 (.TST_PAT, 0, .ERR_FLG); ‘CALL ROOUTINE TO READ MLCS1 
5329 : 3795 [1] : 
3330 : 3796 RD_ER (.TST_PAT, 6, .ERR_FLG); ‘CALL ROUTINE TC READ MLER 
5332 : 3798 (2) : 
3333 : 3799 RD_DA (.TST_PAT, 3, .ERR_FLG); ‘CALL ROUTINE TO READ MLDA 
5335 : 3801 (3) : 
3336 : 3802 RD_MR (.TST_PAT, 10, .ERR_FLG); ‘CALL ROUTINE TO READ MLMR 
5338 : 3804 (4) : 
5339 : 3805 RD_E1 (.TST_PAT, 13, .ERR_FLG); . CALL ROUTINE TO READ MLE1 
| 5341 ; 3807 [5] : oe 
| Hh a ; $509 RD_E2 (.TST_PAT, 14, .ERR_FLG); *° !CALL ROUTINE TO READ MLE2 
| 5344 | 3810 (6) : | 
5545 : 5811 RD_PA (.TST_PAT, 8, .ERR_FLG); ‘CALL ROUTINE TO READ MLPA | 
| 


CZMLAAO 


ML-11 


HARDWARD TEST 


5348 


sML4 


Be Se Be Be Se Be Fe Be Se He Be Sse Se Be Be SH BH Se BH Ss Oe SH Oe 


020210 


5386 020232 
5387 020236 


5397 020262 
5398 020264 
5399 020256 
5400 020270 
5401 020272 


LOGIC TEST 
SECTION 


WWWAWNWAANWNA 
2 CO CO CO CD CD CD OD CD 


010146 


end; 


163572 
000010 
000014 
000012 


020236 


MACRO M1113 


RD.REG: 


.TST_PAT, 
.TST_PAT, 
.TST_PAT, 
.TST_PAT, 
.TST_PAT, 
.TST_PAT, 


.TST_PAT, 


JSR 
MOV 


2s: 


) 


23-OCT-80 09:11 


15, 


16, 


14, 


19, 


os 


18, 


5, 


-ERR_FLG); 
-ERR_FLG); 
.ERR_FLG); 
-ERR_FLG); 
«ERR_FLG); 
-ERR_FLG); 


ERR_FLG); 


R1,-(SP) 
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SEQ 0135 
TOPS=20 Bliss-16 V2(206) ~ 
PA:<NEALE>BL2ML4.BLI.2 (43) 


ROUTINE TO MLD1 


ROUTINE TO MLD2 


ROUTINE .TO MLE2 


ROUTINE TO MLPD 


ROUTINE TO MLEE 


ROUTINE TO READ MLEL 


ROUTINE TO MLDS 


3761 
3793 


3789 


-FLG,* 
-PAT,* 
; REG.SEL,* 


3793 


| G11 
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HARDWARD TEST SECTION 


5403 sML4 
5404 : 

| §40 

| = §406 020274 005046 A, CLR =(SP 

| 5407 020276 010046 MOV RO,-(SP) 

| $408 020300 004767 173740 JSR PC’RD.CS1 
$409 020304 000532 BR 16$ 

| 5410 020306 010146 3$: MoV R1,<(SP) 
5411 020310 012746 000006 MOV #6,-(SP) 
$412 020314 010046 MOV RO, -(SP) 
5413 020316 004767 174100 JSR PC’RD.ER 
5414 020322 000523 BR 16$ 
$415 020324 010146 4$: MOV R1,-(SP) 
$416 020326 012746 000003 MOV #3.-(SP) 
§417 020332 010046 MOV RO. -(SP) 
5418 020334 004767 174240 JSR PC,RD.DA 
5419 020340 000514 BR 16$ 
5420 020342 010146 5$: MOV R1,-(SP) 
5421 020344 012746 000012 MOV #12,-(SP) 
$422 020350 010046 MOV RO,-(SP) 
5423 020352 004767 174400 JSR PC_RD.MR 
5424 020356 000505 BR 16$ 
5425 020360 010146 6$: MOV R1,-(SP) 
5426 020362 012746 000015 MOV #15,-(SP) 
5427 020366 010046 MOV RO,-(SP) 
5428 020370 004767 174762 JSR PC-RD.E1 
5429 020374 000476 BR 16$ 
5430 020376 010146 7$: MOV R1,-(SP) 
5431 020400 012746 000016 MOV #16,-(SP) 
$432 020404 010046 MOV RO,-(SP) 
5433 020406 004767 175164 JSR PC-RD.E2 
5434 020412 000467 BR 16$ 
5435 020414 010146 8$: MOV R1,-(SP) 
5436 020416 012746 000010 MOV #10,-(SP) 
5437 020422 010046 MOV RO,-(SP) 
5438 020424 004767 174520 JSR PC_RD.PA 
$439 020430 000460 BR 16$ 
5440 020432 010146 9$: MOV R1,-(SP) 
5441 020434 012746 000017 MOV #17,-(SP) 
5442 020440 010046 MOV RO,-(SP) 
5443 020442 004767 175720 JSR PC,RD.D1 
5444 020446 000451 BR 16$ 
$445 020650 010146 10$: MOV R1,-(SP) 
5446 020452 012746 000020 MOV #26,-(SP) 
5447 020456 010046 MOV RO,-(SP) 
5448 020460 004767 176220 JSR PC_RD.D2 
5449 020464 000442 BR 16$ 
$450 020466 010146 11$: MOV R1,-(SP) 
5451 020470 012746 000016 MOV #16,-(SP) 
5452 020474 010046 MOV RO,-(SP) 
5453 020476 004767 176534 JSR PC RD.D3 
5454 020502 000433 BR 16$ 
5455 020506 010146 12$: MOV R1.-(SP) 
5456 020506 012746 000023 MOV #23,-(5P) 


5457 020512 010046 MOV RO,-(SP) 


SEQ 0136 


247244 TOPS 


7:45:32 PA:< 


3789 
3796 


3789 
3799 


3789 
3802 


3789 
3805 


3789 
3808 


3789 
3811 


3789 
3814 


3789 
3817 


3789 
3820 


3789 
3823 


CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 


5459 
5460 
5461 
5462 020514 004767 
= $463 020520 000424 
5464 020522 010146 
65 020524 012746 


nh 020576 000207 


5489 ; 3836 
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175320 


000021 
175504 


000022 
175424 


000005 


176722 
000006 


! <BLF /PAGE> 


14$: 


15$: 


16$: 


; Routine Size: ; ; 
; Maximum stack depth per invocation: 


PC,RD.PD 
16$ 


124 words 


22-Oct-19 
22-Oct-19 


80 10: 
80 10 


47: 
245: 


SEQ 0137 
44 TOPS 
32 PA:< 


3789 
3826 


3789 
3829 


3789 
3832 


3762 
3761 


zo 


» 
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CZMLAAO ML=11 LOGIC | 
‘MARDWARD TEST SECTION SEQ 0138 
5491 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
ee ; 22-0ct-1980 10:45:32 Ph: <NEALE>BL2ML4.BLI.2 (44) 
5494 ; 3837 |! 
5495 ; 3838 BGNINIT; 
5496 ; 3839 =! INITIALIZATION CODE IS EXECUTED AT THE BEGINNING OF EACH 
5497 ; 3840 ! PASS, WHEN POWER DOWN/POWER UP HAS OCCURRED, OR WHEN THE 
5498 ; 3841! OPERATOR HAS ISSUED A START, RESTART OR CONTINUE COMMAND. 
5499 ; 3842 | DURING INITIALIZATION, THE 'GPHARD' MACRO IS USED TO GET 
5500 ; 3843! P=-TABLE INFORMATION FOR THE LOGICAL UNIT UNDER TEST. THE 
5501 ; 3844 ! NUMBER OF UNITS AVAILABLE FOR TESTING IS CONTAINED IN A 
5502 ; 3845! HEADER LOCATION (‘LSUNIT"). 
5503 ; 3846 
5504 ; 3847 local 
5505 ; 3848 OFFSET; 
5506 ; 3849 
5507 ; 3850 external 
5508 ; 3851 LSUNIT; 
5509 ; 3852 
5510 ; 3253 if mot READEF (EF_CONTINUE) ‘SKIP INIT CODE IF CONTINUE 
5511 ; 3854 then 
a : th begin ‘START GPHARDS AT LUN 0 AND LOAD ‘ML_REG' 
5514 ; 3857 if READEF (EF_START) ‘SEE IF THIS IS THE VERY FIRST PASS 
5515 ; 3858 then 
5516 ; 3859 begin 'THIS IS CATEGORY | CODE 
solr 3 3860 ML_LUN = <1; 
5518 ; 3861 
5519 ; 3862 do j 
5520 ; 3863 begin 
o38) ; Soce ML_LUN = .ML_LUN + 1; ‘INCREMENT LOGICAL UNIT NUMBER 
36° : ree if .ML_LUN geq .LSUNIT then DOCLN; !START OVER IF ALL UNITS HAVE BEEN TESTED 
2 Py 
5525 ; 3868 end 
3368 ; 308? until (GPHARD (.ML_LUN, PTBL_PTR)) neq 0; ‘REPEAT THE GPHARD UNTIL A 0 IS RETURNED 
5528 ; 3871 RH_ADD = .((.PTBL_PTR) + 0); 'GET BASE RH ADDRESS FOR THIS UNIT 
5529 ; 3872 RH_TYP = .((.PTBL_PTR) + 2); 'GET RH TYPE FOR THIS UNIT 
5530 ; 3873 RH_VEC = .((.PTBL_PTR) + 4); 'GET RH VECTOR FOR THIS UNIT 
434 ; ere OFFSET = 0; ‘INIT OFF SET COUNT 
5533 ; 3876 incr COUNT from 0 to 21 do 'LOAD THE REGISTER ADDRESS FOR THIS UNIT INTO ML_REG 
5534 ; 3877 begin 
5535 ; 3878 ML_REG C.COUNT, REGISTER_ADD] = .RH_ADD + .OFFSET; 
5536 ; 3879 OFFSET = .OFFSET + 2; 
5537 ;: 3880 end; 
5538 ; 3851 
5539 ; 3882 end 
5540 ; 3883 else '1S THIS A NEW PASS 
5541 ; 3884 begin 
5542 ; 3885 
5543 ; 3886 if READEF (EF_NEW) then ML_LUN = -1; ‘IF NEW PASS START GPHARDS AT LUN 0 
5544 ; 3887 
5545 ; 3888 do 


2a 
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CZMLAAQ ML=11 LOGIC 1 
HARDWARD TEST SECTION SEQ 0139 
5547 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
see 3 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (44) 
5550 ; 3889 begin 
gee ; ere ML_LUN = .ML_LUN + 1; ‘TF NOT GET NEXT LUN PTABLE 
gee ; 3892 if .ML_LUN geq .LSUNIT then DOCLN; !START OVER IF ALL UNITS ARE TESTED 
5554 ; 3893 
| §555; 3894 end 
| 5556 ; 3895 until (GPHARD (.ML_LUN, PTBL_PTR): neq 0; 
5557 ; 3896 
| 5558: 3897 end; 
| 5559; 3898 
5560 ; 3899 PAR DIS = .((.PTBL_PTR) + 12); 'GET PARITY DISABLE FLAG 
5561 ; 3900 m._6uT = .(C.PTBL BTR) + 10); 'GET DRIVE NUMBER 
$562 ; 3901 OP"NUM_ARR = .((.PTBL_PTR) + 6) - 1; 'GET OPERATOR NUMBER OF ARRAYS 
5563 ; 3902 GO6D_BLK = ZER OES; ‘INIT GOOD BLOCK TO BLOCK ZERO 
5564 ; 3903 ARR_T6 = ZEROES ‘INIT ARRAY 16 TO ZERO 
5565 ; 3904 LST_ARR = ZEROES; ‘INIT LAST ARRAY TO ZERO 
2268 ; ae LST_BLK = ZEROES; ‘INIT LAST BLOCK TO ZERO 
5568 ; 3907 if .((.PTBL_PTR) + 8) IS_SET ‘CALCULATE ML11 16K MOS RAM PARAMETERS 
5569 ; 3908 then 
5570 ; 3909 porte 
5571 ; 3910 DRIVE_TYPE = %0'000110'; ‘EXPECTED DRIVE TYPE VALUE 
5572 ; 3911 w_C_SIZE = %0'140000'; 'WORD COUNT SIZE FOR 16K WORD XFER 
5573 ;: 3912 RAS_ Int a i 200'; 'RAS INCREMENT FOR 16K RAMS 
5574 ;: 3913 CHIPS 'CHIP SIZE 
5575 : 3914—i«‘e RING = “xO: Fio00': ‘ARRAY INCREMENT 
5576 ; 3915 ARR “16<9, 4> = Yo'l7'; ‘ARRAY 16 
5577 3916 LSTTARR<9, 4> = .OP_NUM_ARR; iLAST ARRAY 
5578 : 3917 LST_BLK<9, 4> = .OP_NUM_ARR; 'LAST BLOCK 
5579 : 3918 LST7BLK = .LST_BLK Or X%0'777'; 
5580 ; 3919 end 
5581 ; 3920 else. ‘CALCULATE ML11 64K MOS RAM PARAMETERS 
5582 ; 3921 begin 
5583 ;: 3922 DRIVE_TYPE = %0'000111'; ‘EXPECTED DRIVE TYPE VALUE 
5584 ; 3923 w_C_SIZE = %0'000000'; 'WORD COUNT SIZE FOR 64K WORD XFER 
5585 ;: 3924 RAS_INC = %0'1000'; 'RAS INCREMENT FOR 64K RAMS 
5586 ; 3925 CHIP SIZ = 64; 'CHIP SIZE 
5587 ; 3926 ARR_INC = %0'4000'; ‘ARRAY INCREMENT 
5588 ; 3927 ARR_16<11, 4> = %o'74'; ‘ARRAY 16 
5589 : 3928 LSTARR<11, 4> =. .OP_NUM_ARR; iLAST ARRAY 
5590 ; 3929 LST_BLK<11, 4> = .OP_NUM_ARR; 'LAST BLOCK 
5591 ; 3930 LST_BLK = .LST _BLK or %o'3777'; 
5592 : 3931 end; 
5593 : 3932 
5594 ;: 3933 PRINTB (FMT_17, .ML_LUN); 'TELL OPERATOR WHICH UNIT IS BEING TESTED 
5595 ; 3934 CLR_MBUS; ‘CLEAR MASS BUS 
5596 ; 3935 end; 
5597 ; 3936 
5598 : 3937 ENDINIT; 
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'HARDWARD TEST SECTION SEQ 0140 
| $603 :ML4 22-0¢t-1980 10:47:44 TOPS 
$604 ; | 22-0ct-1980 10:45:32 PA:< 
5605 
| $606 
5607 .GLOBL L$UNIT 
5608 . 
5609. g 
5613'020600 004167 163216 LINIT: JSR R1,$SAVE3 2 3835 
5614 020604 012700 000036 MOV 36,R0 : 3853 
5615 020610 104447 TRAP 
5616 020612 103001 BHIS 1$ 
5617 020614 000207 RTS PC 
5618 020616 012700 000040 1$: MOV #40,R0 ; 3857 
5619 020622 104447 TRAP 47 
5620 020624 103061 BHIS 5$ 
5621 020626 012767 177777 171332 MOV #-1,ML.LUN ; 3860 
5622 020634 005267 171326 2s: INC ML.LUN ; 3864 
5623 020640 026767 171322 161144 CMP ML.LUN,LSUNIT ; 3866 
| 5624 020646 002401 BLT 3$ 
5625 020650 104444 TRAP 44 
5626 020652 016700 171310 3$: MOV ML.LUN,RO J 5 3869 
5627 020656 104442 TRAP 4 
5628 020660 010067 167434 MOV RO,PTBL.PTR 
5629 020664 005767 167430 TST PTBL.PTR 
5630 020670 001761 BEQ 2$ 
5631 020672 017767 167422 171260 MOV aPTBL.PTR,RH.ADD : 3871 
5632 020700 016701 167414 MOV PTBL.PTR,R1 : 3872 
5633 020704 016167 000002 171250 MOV 2(R1),RH.TYP 
5634 020712 016701 167402 MOV PTBL.PTR,R1 : 3873 
5635 020716 016167 000004 171240 MOV 4(R1),RH.VEC 
5636 020724 005002 CLR R2 : OFFSET 3874 
5637 020726 005001 CLR R1 ; COUNT : 3876 
5038 020730 010100 4$: MOV R1,R0 ; COUNT,* 3878 
5639 020732 006300 ASL RO . 
5640 020734 006300 ’ ASL RO 
5641 020736 006300 ASL RO 
642 020740 016703 171214 MOV RH.ADD,R3 
5643 020744 060203 ADD R2,R35 : OFFSE1,* 
5644 020746 010360 011700 MOV R3,ML.REG(RO) 
5645 020752 062702 000002 ADD #2,R2 ; *, OFFSET 3879 
5646 020756 005201 INC R1 : COUNT 3876 
5647 020760 020127 000025 CMP R1,#25 ; COUNT,* 
5648 020764 003761 BLE 4$ 
5649 020766 000426 BR 8$ 3 3857 
5650 020770 012700., 000035 5$: MOV #35,R0 : 3886 
5651 020774 104447:. TRAP 47 
5652 020776 103003 . BHIS 6$ 
5653 021000 012767 177777 171160 MOV #-1,ML.LUN 
5654 021006 005267 171154 6$: INC ML .LUN 3 3890 
5655 021012 026767 171150 160772 CMP ML .LUN,LSUNIT : 3892 
5656 021020 002401 BLT 7$ 


‘CZMLAAO ML=11 LOGI 
[WARDWARD TEST SECT 


5679 0 


ooo 
8S 
NRVFAONMOMOEOMAUAN 


POMP POP nononofronoer 
“ 


ofFfNO 


C TEST 
10N 


171136 


167262 
167256 


167250 


000006 
167214 


000010 
000110 


167110 


160777 


167062 


160777 


000777 
000111 


166754 


L_11 
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167252 
171100 


000001 
170524 


167130 


167110 


167056 
167044 
170374 
170354 


166774 


sML4 


7$: 


8$: 


9$: 


4a 
ML.LUN,RO 


4 
RO,PTBL.PTR 
PTBL.PTR 


6$ 

PTBL.PTR,R1 
14(R1) ,PAR.DIS 
PTBL.PTR,R1 
12(R1) ,ML.DUT 
PTBL.PTR,R1 
hae 


R 
R3,0P.NUM.ARR 


LST.BLK 
PTBL.PTR,R1 
10(R1) #1 

9$ 

#110, DRIVE. TYPE 


OP .NUM.ARR,R3 
R3 

R3 

#160777,R3 
#17000,LST.ARR 
R3,LST.ARR 
eae 


R3 
#160777,R3 
#17000,LST.BLK 


R3,LST.BLK 
#777,LST.BLK 
10$ 

#111, DRIVE. TYPE 
W.C. E 
#1000,RAS. INC 


22-0¢t-198 
22-0¢t-198 


0 10 
0 10: 


SEQ 0141 


1:47:44 
7:45:32 


TOPS 
PA:< 


3895 


_—=—_—_ 


CZMLAAO ML-11 LOG 


IC TEST 
‘eens TEST SECTI 


ON 


| 5715 


006303 


57 1466 
5738 021472 


000207 


004767 
104411 
000207 


103777 


166722 


103777 


000002 


000040 


000006 


177062 


| M11 
MACRO M1113 23-OCT-80 09:11 PAGE 156 


166750 


166712 
166700 


170256 


170240 


3ML4 


10$: MOV 


; Routine Size: 
; Maximum stack 


LSINIT::JSR 
TRAP 
RTS 


; Routine Size: 


; Maximum stack depth per invocation: 


R3 

#103777,R3 
#74000,LST.ARR 
R3,LST.ARR 

OP .NUM.ARR,R3 
R3 
R3 
R3 
R3 

#103777,R3 
#74000,LST.BLK 


R3,LST.BLK 
#3777,LST.BLK 


#40,aML.REG+40 
ML .DUT,R3 
#1777706,R3 
#7,,aML .REG+40 
R3.aML.REG+40 


#6,SP 
PC 


229 words 


depth per invocation: 


PC,LINIT 
11 
PC 


4 words 


7 words 


0 words 


s SP,* 


22-0ct-198 
22-0c t-198 


0 10 
0 10: 


247 
45 


SEQ 0142 
244 TOPS 
:32 PA:< 

3929 


3930 
3933 


3855 
3835 


3935 


CZMLAAO ML=11 LOGIC TEST 


/HARDWARD TEST SECTION 


Se Se Se Oe Be Be Be Be Be Se Be Ge Ss Be Be Be Se Se Se Ge Be Se THs Be Be Se Ss Se Be Bs Se Ss Oe Se Be Be Se Ge Se Be Be Ss Be Se Se Be Ss He Be Sse 
é 


sML4 


N11 
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- BGNTST: 


le 


| TEST NUMBER: TST 1 
| TEST NAME: DRIVE PRESENT TEST 


: TEST DESCRIPTION: 

: THIS TEST READS THE DESIRED SECTOR 
ADDRESS REGISTER OF THE DRIVE UNDER 
TEST, DELAYS 100 US, THEN 

READS THE NED BIT OF MLCS2 


IF SET, AN ERROR MESSAGE IS 
PRINTED AND THE UNIT IS DROPPED 


i IMPLICIT INPUTS: ‘NONE 


ocal 
DODU_FLG, 
SAVE; 

BGNSUB; 

CLR MBUS; 

DODO_FLG = ZERO; 

SAVE = .MLDA; 


DELAY (ONE _US); 


if .NED IS_SET 
then 


poaee 
ERRDF (1, ASYNC, 0); 


PRINTB (ONE FMT, PHR_ 3): 
DODU_FLG = ONE; 
end; 

ENDSUB; 


if .DODU_FLG IS_SET 
then ; 
ot ho 
DODU (.ML_LUN); 
DOCLN; 
end; 
ENDTST; 


SEQ 0143 


22-Oct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
22-Oct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (44) 


‘DROP UNIT FLAG 
!TEMP STORAGE LOCATION 


‘READ A DRIVE REGISTER 
!DELAY 1 US 
‘TEST THE NED BIT 


!I1F SET THEN REPORT ERROR AND SET DODU_FLG 


'DROP THIJS UNIT IF DODU IS_SET 


rs -———_ —__- —_—_—-- - --- - + 


‘CZMLAAO ML=11 LOGIC TEST 
HARDWARD TEST SECTION 


| 5830 


5831 

5832 

5833 

5837 021522 004167 162312 
5838 021526 005746 

5839 021530 104402 

5840 021532 152777 000040 
5841 021540 016702 170424 
5842 021544 042702 177770 
5843 021550 142777 000007 
5844 021556 150277 170156 
5845 021562 005003 

5846 021564 017704 170140 
5847 021570 012761 000001 
5848 021574 001410 

5849 02157 


016702 160314 


5856 021616 032777 010000 


000000 
5862 021636 012746 006576 
5863 021642 012746 005350 
5864 021646 012746 000002 


5867 021656 012703 000001 
ones os ieee 062706 000006 


5874 021700 016700 170262 


5877 021710 005726 
5878 021712 000207 


——-—— 


ie ae 
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~-GLOBL LS$OLY 


$11: JSR R1,$SAVE4 
= (SP) 


TST 
1$: TRAP 2 
170200 BISB  #40,aML.REG+40 
MOV ML DUT, R2 
BIC #177776, R2 
170162 BICB = #7, AML. REG+40 
8138 R2,aML.REG+40 
L 
MOV ML .REG+30,R4 
MOV #1,R1 
2$: BEQ 5$ 
MOV L$DLY,R2 
BEQ 4$ 
3$: CLR (SP) 
DEC R2 
BNE 3§ 
4$: DEC R1 
BR 2$ 
170114 5$: BIT #10000,aML .REG+40 
BEQ 6$ 
TRAP 55 
~ WORD | 
~ WORD ASYNC 
"WORD 0 


MOV #PHR.3,-(SP) 
MOV WONE .FMT,-(SP) 
MOV et 


TRAP 14 
MOV #1,R3 
ADD #6,SP 

6$: TRAP 67 
ROR RO 
BLO 1s 3 
DEC R3 
BNE 7$ 
MOV ML.LUN,RO 
TRAP 51 
TRAP as 

7$: TST (SP) + 
RTS PC 


es Be 


DODU.FLG 
* , SAVE 
* ,S$TMP2 


; *,S$$TMP1 


; SSTMP 


$STMP1 
$STMP2 


SP,* 
* ,DODU.FLG 


DODU.FLG 


SEQ 0144 


cr 
| 


| C 12 
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HARDWARD TEST SECTION SEQ 0145 


0G 
| EC 
/  -§880 sML4 2 
| 5 
| 


C 
l 
5881 ; 


5884 ; Routine Size: 61 words 
5885 ; Maximum stack depth per invocation: 9 words 


5899 021714 T1:: 
5900 021714 004767 177602 1$: JSR PC,$T1 ; 3986 
104466 66 


gpoe 021726 000207 RTS PC 


5906 ; Routine Size: 6 words 
5907 ; Maximum stack depth per invocation: 0 words 


5914 ; 3989 !<BLF/PAGE> 


D 12 
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CZMLAAO ML=11 LOGIC 1 
'HARDWARD TEST SECTION 
5916 ;ML4 
5917 ;: 
5918 
5919 3990! 
5920 3991 BGNTST; 
5921 3992 
5922 avvo =} 9 
5923 3994 | TEST NUMBER: TST 2 
5924 3995 
5925 3996 ! TEST NAME: DRIVE SELECTION TEST 
5926 3997 
5927 3998 =! TEST DESCRIPTION: 
5928 3999 THI 
5929 4000 
5930 
5931 4002 
5932 4003 
5933 4004 ! IMPLICIT paises 
5934 4005 ML 
5935 4006 
5936 4007 
5937 4008 
5938 4009 
5939 4010 local 
5940 4011 DODU_FLG, 
5941 4012 SAVE; 
5942 4013 
5943 401% BGNSUB: 
5944 4015 


CLR_MBUS; 
4016 D000. FLG = ZERO; 
MLDA = .ML_DUT; 


5947 4018 SAVE = .MLDA; 

4019 

4020 if .SAVE neq .ML_DUT 

4021 then 
5951 4022 phy 
5952 4023 ERRDF (2, INTER, 0); 
5953 4024 PRINTB (S1X_ FMT, PHR_4, WRD_12, 
5954 4025 PRINTB (FMT~2, .ML_DOT, .SAVE, 
5955 4026 EXIT_TST; 
5956 4027 end; 
5957 4028 ° 
5958 4029 incr DRV_SEL from 0 to 7 do 
5959 4030 
5960 4031 if .DRV_SEL neq .ML_DUT 
5961 4032 then — 
5962 4033 begin 
5963 4034 DRV_NUM = .DRV_SEL; 
5964 4035 MLDA = .DRV_SEL; 
5965 4036 DELAY (ONE_OS); 
5966 4037 end; 
5967 4038 


4039 DRV_NUM = .ML_DUT; 
4040 SAVE = .MLDA; 


w 
Oo 
a 
oa 
Be Be Be Be Oe Oe Se Se Ss Sy Be Se Be Be Bs Be Be Be Be Fe Ge FH Se Ge TH Se Te Ge Ge Se Te Ge Ge Ge Ge FH Ge GH Ge Ge Se Ge Se Se Se Fe Se Se Ge Be Ge we 
. 
Oo 
— 
~ 


i 
i 
i 
i 
i 
5 TEST TESTS FOR UNIQUE DRIVE wiiker BY WRITING THE DRIVE 
UNDER TEST (DUT) DRIVE NUMBER INTO ITS DSA REG. 
4001! NUMBERS OF OTHER DRIVES INTO THEIR RESPECTIVE DSA REGISTERS 
! AND READING THE DUT DSA FOR ITS DRIVE NUMBER. 
i 
i 
i 
i 
lo 


LOADED DURING THE INITIALIZATION CODE AND CONTAINS THE DRIVE 
NUMBER OF THE DRIVE PRESENTLY BEING TESTED. 


‘DROP UNIT FLAG 


!TEMPORARY SAVE LOCATION 


‘LOAD THIS DRIVES DRIVE 
'READ THE REGISTER BACK 


TOPS=20 Bliss-16 V2(206) | 
PA:<NEALE>BL2ML4.BLI.2 (45) 


THEN WRITING THE DRIVE 


NO. INTO ITS DSA REG 


'SEE IF DSA HAS DRIVE NUMBER 


'ERROR AND EXIT TEST IF 


FNC_3, WRD_37, waD 1 3, REG_6); 


(ML “puT xor 


. SAVE) 


‘WRITE DRV NO OF OTHER DRIVES INTO THEIR RESPECTIVE DSA REG. 


DSA NEQ DRIVE NUM 


‘SKIP IF .DRV_SEL EQL TO THE DRIVE UNDER TEST (DUT) 


'SELECT DRIVE TO BE WRITTEN TO 
‘WRITE DRIVE SEL NO. INTO ITS DSA REG 


!DELAY 1 US 


‘SELECT THE DUT 
'READ ITS DSA REG 


SEQ 0146 
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CZMLAAO ML-11 LOGIC 1 
HARDWARD TEST SECTION SEQ 0147 
5972 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
gotz ; 22-0ct-1980 10:45:32 PA: <NEALE>BL2ML4.BLI.2 (45) 
| 
5975 : 4042 if .SAVE neq .ML_DUT 'SEE IF WRITTING TO OTHER DRIVES CHANGE ITS VALUE 
$976; 4043 then 
5977 ; 4044 
| §978; 4045 bear (3, ASYNC, 0); ‘ERROR AND SET DODU_FLG IF CHANGED 
| 5979 ; 4046 PRINTS (THR_FMT, FNC_3, WRD_37, WRD_14); 
/ §980 ; 4047 PRINTB (FMT_1, .ML_DOT, .SAVE); 
| 5981 ; 4048 DODU_FLG = ONE; 
5982 ; 4049 end; 
5983 ; 4050 
5984 ; 4051 ENDSUB; 
5985 : 4052 
5986 ; 4053 if .DODU_FLG IS_SET ‘DROP UNIT IF DODU_FLG IS_SET 
5937 ; 4054 then 
5988 : 4055 begin 
5989 ; 4056 DODU (.ML_LUN); 
5990 ; 4057 DOCLN; 
5991 : 4058 end; 
5992 : 4059 
sad ; 4060 ENDTST; 
6001 021730 004167 162124 $12: JSR R1,$SAVES : 3988 
6002 021734 005746 TST ~(SP) 
6003 021736 104402 1$: TRAP =_-2 : 4012 
6004 021740 152777 000040 167772 BISB #40, QML .REG+40 ; 4014 
6005 021746 016703 170216 MOV L.DUT,R3 
6006 021752 010302 MOV RS R 
6007 021754 042702 177770 BIC #177770,R2 
6008 021760 142777 000007 167752 BICB =—s-_-« #7, AML. REG +40 
6009 021766 150277 167746 BISB Re, @ML .REG+40 
6010 021772 005005 CLR ; DODU.FLG 4016 
6011 021774 010377 167730 MOV Re aML .REG+30 ; 4017 
6012 022000 017704 167724 MOV aML .REG+30,R4 ; *, SAVE 4018 
6013 022004 020403 CMP R4,R3 : SAVE,* 4020 
6014 022006 001451 BEQ 2$ 
6015 022010 104455 TRAP 55 : 4023 
6016 022012 000002 WORD 
6017 022014 007622 WORD INTER 
6018 022016 000000 .WORD 0 
6019 022020 012746 007342 MOV #WREG.6,-(SP) ; 4024 
6020 022024 012746 005770 MOV #WRD.13,-(SP) 
6021 022030 012746 006232 MOV #WRD.37,-(SP) 
022034 012746 006774 MOV #FNC.3,-(SP) 
6023 022040 012746 005760 MOV #WRD.12,-(SP) 
6024 022044 012746 006630 MOV #PHR.4,-(SP) 
6025 022050 012746 005432 MOV #SIX.FAT,-(SP) 


CZMLAAO ML-11 LOGIC TEST 
HARDWARD TEST SECTION 


6027 
602 
6029 
6030 022054 012746 000007 
6031 022060 010600 
6032 022062 104414 
| = 6033 022064 016716 170100 
| = 6034 022070 010403 
6035 022072 041603 
| 6036 022074 040416 
6037 022076 050316 
6038 022100 010446 
6039 022102 016746 170062 
6040 022106 012746 004224 
6041 022112 012746 000004 
6042 022116 010600 
043 022120 104414 
6044 022122 104463 
6045 022124 062706 000030 
6046 022130 000522 
047 022132 016700 170032 
6048 022136 005003 
6049 022140 020300 
6050 022142 001425 
6051 022144 019302 
6052 022146 042702 177770 
6053 022152 142777 000007 
6054 022160 150277 16755 
6055 022164 010377 167540 


6056 022170 012701 000001 
6058 022176 016702 157714 


020327 000007 


6069 022230 042703 177770 
6070 022234 142777 000007 
6071 022242 150377 167472 
onre aecess 017704 167456 


000000 
6079 S354 012746 005774 
B80 022272 012746 006232 
6081 622276 012746 006774 


167560 


167476 


7ML4 


2$: 
3$: 


4$: 


5$: 


6$: 
7$: 


F 12 
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#7,-(SP) 
SP,RO 


14 
+ ale 


ML. “DUT, =(SP) 
#FMT.2,-(SP) 
#4 ,-(SP) 


63 

#30,SP 

10$ 

ML .DUT,RO 

R3 

R3,R0 

7$ 

R3,R2 
#177770,R2 
#7 AML .REG+40 


R2,QML .REG+40 
ar _* -REG+30 


$ 
LSDLY,R2 
6 


R3,QML .REG+40 
@ML .REG+30,R4 
R4 RO 

8% 


55 

3 

we 
#WRD.14,-(SP) 


#WRD.37,-(SP) 
#FNC.3,-(SP) 


SP,* 


> SAVE,* 


; SAVE,* 


; SAVE,* 


3; +. 


: DRV.SEL 
; DRV.SEL.* 


; DRV.SEL,* 


; DRV.SEL,* 
3; *, $$TMP2 


; *,SSTMP1 


; SSTMP 
: $SSTMP1 


; SSTMP2 


3; DRV.SEL 
; DRV.SEL,* 


* , SAVE 
SAVE ,* 


22-Oct-19 
22-Oct-19 


80 10: 
80 10: 


47: 
45: 


SEQ 0148 


44 
32 


TOPS 
PA:< 


4025 


zo 


CZMLAAO ML=11 LOGIC TEST 


HARDWARD TEST SECTION 


| 


$$ $$$ 


MPMIMOPOPI PO POP Porno fpoefro¢rns rors 
MN & EWWYINN SOO 


6101 022356 


6108 022400 
6109 


6125 022402 


6130 022414 


6143 ; 


000207 


004767 


000207 


4061 
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7ML4 


005366 MOV 
000004 MOV 


167644 MOV 
004164 MOV 
000003 MOV 


000001 MOV 
000020 ; ADD 
8$: TRAP 


177354 JMP 
9$: DEC 
167574 MOV 
10$: TST 


; Routine Size: 
; Maximum stack 


— 4 
Pr 


177322 


; Routine Size: 


; Maximum stack depth per invocation: 


! <BLF /PAGE > 


#THR.FMT,=(SP) 
#4 ,-(SP) 

SP,RO 

14 


R4, (SP) 
ML .DUT,-(SP) 
#FMT.1,-(SP) 
tre ai 


149 words 


depth per invocation: 


6 words 


SP,* 


; SAVE,* 


SP,® 
*,DODU.FLG 


DODU.FLG 


22-0ct-19 
22-Oct-19 


SEQ 0149 


TOPS 
PA:< 


4047 


4048 
4044 
4049 


4053 
4056 


3988 


4058 


rr 


CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 


7ML4 
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! 

BGNTST; 

lee 

TEST NUMBER: 
TEST NAME: 


TEST DESCRIPTION: 
THIS TEST WRITES AND READS A 
OF THE ML11'S READ 


TST 3 


IMPLICIT INPUTS: 
WT _DATA 


RD_DATA 


DODU_FLG = ZERO; 
TST_BAT = ONES; 


incr TWICE from 0 to 1 do 
begin 


incr REG_SEL from 0 to 10 do 


CLR_MBUS; 
WRT-REG (.TST_PAT, 
RD_REG (. 1ST Bat, 


if .ERR_FLG IS_SET 
then 
begin 


-REG_SEL, index); 
REG_SEL, 


selectone .REG_SEL of 
set 


H 12 
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READ WRITE REG ONES/ZEROES TEST 


ERR_FLG); 


SEQ 0150 


TOPS-20 Bliss-16 V2(206) — 
PA:<NEALE>BL2ML4.BLI.2 (46) 


DATA PATTERN OF ALL ONES AND ZEROES TO ALL 
/ WRITE REGISTERS. 


ROUTINES WRT_REG AND RD_REG ACCEPT ARGUMENTS TO FURTHER SE 
WHICH ACTUALLY PERFORMS THE READING AND WRITING OF THE REG 


THE UNIT IS DROPPED ON DETECTED ERRORS. 


LECT ee 
ISTERS 


LOADED BY READ REGISTER ROUTINES AND CONTAINS THE DATA PATTERN WRITTEN 
TO THE REGISTERS (REPRESENTS GOOD DATA). 


LOADED BY THE READ REGISTER ROUTINES AND CONTAINS THE DATA PATTERN 
READ FROM THE REGISTER (REPRESENTS BAD DATA). 


‘tect P a Veter PASSED TO ROUTINES 

‘POINTS TO REGISTER PRESENTLY BEING TESTED 
!DROP UNIT FLAG 

'LOAD TEST PAT WITH ONES 


'REPEAT LOOP TWICE 


'TEST ELEVEN WRITE/READ REGISTERS 


‘WRITE TO THE REGISTER 
'READ THE REGISTER 


'SEE IF READ FOUND AN ERROR 
‘1F ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG 
‘SELECT WHICH MODULE FAILED 


CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 


;ML4 


022416 


022472 


010346 


MACRO M1113 23-OCT-80 09:11 PAGE 


(0 t 
{4 to 


{6 to 10] 
ERRDF (4, 
tes; 


PRINTB (SIX_FMT, 
PRINTB (FMT_16, 
DODU_FLG = ONE; 
end; 


ENDSUS; 
end; 


TST_PAT = not .TST_PAT; 
end; 


if .DODU_FLG IS_SET 
then 


begin 
DODU (.ML_LUN); 
DOCLN; 


end; 
ENDTST; 
161416 $13: JSR 
CMP 
CLR 
177777 MOV 
CLR 
1$ CLR 
2$: TRAP 
000040 167272 BISB 
167516 MOV 
177770 BIC 
000007 167254 BICB 
167250 BISB 
MOV 
MOV 


o 3): 
ERRDF (4, 


$) : 
ERRDF (4, 


11 
165 


ASYNC, 0); 
SYNC, 0); 


ARR_DAT, 0); 


PHR_ 4, WRD_12, FNC 6); 
“ ML_REG C. index, REGISTER “ADJ, .GT_DATA,~.RD. DATA); 


R1,$SAVE4 

~(SP),-(SP) 

R4 

#-1,R2 

R1 

R3 

2 

#40 ,aML .REG+40 
T,RO 


ML .OU 
#177776,R0 
#7, aML .REG+40 
RO. aML .REG+40 
R2.-(SP) 
R3,-(SP) 


247:44 TOPS=20 Bliss-16 V2(206) © 
7:45:32 PA:<NEALE>BL2ML4.BL1.2 (46) 


!ASYNC MODULE FAILURE 
‘SYNC MODULE FAILURE 
!ARRAY DATA MODULE FAILURE 


»_FNC_6, WRD_52, WRD_5 


'REPEAT AGAIN WITH COMPLIMENT DATA 


‘DROP THIS UNIT JF THE DODU_FLG IS_SET 


DODU.FLG 
*,TST.PAT 
TWICE 
REG.SEL 


TST.PAT,* 
REG.SEL,* 


SEQ 0151 


4105 


CZMLAAO ML-11 LOGIC TEST 
HARDWARD TEST SECTION 


6256 sML4 
6257 ; 
6258 
6259 022474 012746 000010 
6260 022500 060616 
| = 6261 022502 004767 «175114 
6262 022506 010216 
| = 263 022510 010346 
6264 022512 012746 000012 
6265 022516 060616 
6266 022520 004767 175464 
6267 022524 026627 000012 000001 
6268 022532 001106 
6269 022534 005703 
6270 022536 002410 


6271 022540 020327 000003 


6278 022560 020327 000004 3$: 
79 022564 
6280 022566 020327 000005 


286 022 
6287 022606 020327 060006 4$: 
6289 022614 020327 000012 


6295 022632 012746 006454 5$: 
96 022 


2 
6300 022656 012746 006630 
6301 022662 012746 005432 
0226 012746 000007 
6303 022672 010600 
6304 022674 104414 
6305 022676 016716 166770 


6306 022702 016746 166762 
6307 922706 016600 000036 
6308 022712 006300 
6309 022714 006300 
6310 022716 006300 


#10,-(SP) 
SP, (SP) 
PC,WRT.REG 
R2 


PC,RD.REG 
12(SP) ,#1 
6$ 


4 
ARR.DAT 


#WRD.52,-(SP) 


#7,-(SP) 


1 

RD.DATA, (SP) 
WT .DATA,-(SP) 
36(SP),kO 

RO 


RO 
RO 


J 12 
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; INDE 


, Tete 
; REG. 


; ERR. 
; ERR. 
SEL 

-SEL,* 


; REG. 
; REG. 


; REG. 
; REG. 


3; 3,4 


; INDE 


X,* 


PAT,* 
SEL,* 


FLG,* 
FLG,* 


SEL,* 
SEL,* 


SEL,* 
SEL,* 


X,* 


SEQ 0152 


:47:44 TOPS 
:45:32 -PA:< 


4106 


4108 
4112 


4116 


4112 


4119 


4112 


4122 


4125 


4126 


CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 


20 
6339 023022 
6340 


023024 


023036 
2 


022626 
000207 


004767 


000207 


4144 


K 12 
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011700 
005154 
000004 


000001 
000030 
000012 


000012 


000001 


167152 


177366 


! <BLF /PAGE> 


3ML4 


6$: 


7$: 


; Routine Size: 
; Maximum stack 


Pw 


\ 810 


; Routine Size: 


: Maximum stack depth per invocation: 


ML .REG(RO) ,-(SP) 
lt aaa 


44 
(SP)+,(SP)+ 
PC 


131 words 


depth per invocation: 


6 words 


; SP,* 
* ,DODU.FLG 


; REG.SEL 
; REG.SEL,* 


=» TST .PAT 
: TWICE 
3 TWICE ,* 


; DODU.FLG 


24 words 


0 words 


. 
. 
. 


4 
4 


? 


745: 


74 


SEQ 0153 


4 


32 


TOPS 
PA:< 


4141 


CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 


6376 :ML4 
6377 ; 
6378 
| 6379 ; 4145 
| 6380 ; 4146 
6381 ; 4147 
6382 ; 4148 
| 6383 ; 4149 
6384 ; 4150 
6385 ; 4151 
6386 ; 152 
6387 ; 4153 
6388 ; 4154 
6389 ; 4155 
6390 ; 4156 
6391 ; 4157 
6392 ; 4158 
6393 ; 4159 
6394 ; 4160 
6395 ; 4161 
6396 ; 4162 
6397 ; 4163 
6398 ; 4164 
6399 ; 4165 
6400 ; 4166 
6401 ; 4167 
6402 ; 4168 
6403 ; 4169 
6404 ; 4170 
6405 ; 4171 
6406 ; 4172 
6407 ; 4173 
6408 ; 4174 
6409 ; 4175 
6410 ; 4176 
6411 ; 4177 
6412 ; 4178 
6413 ; 4179 
6414 ; 4180 
6415 ; 4181 
6416 ; 4182 
6417 ; 4183 
6418 ; 4184 
6419 ; 4185 
6420 ; 4186 
6421 ; 4187 
6422 ; 4188 
6423 ; 4189 
6424 ; 4190 
6425 ;: 4191 
6426 ; 4192 
6427 ; 4193 
6428 ; 4194 
6429 ; 4195 
6430 ; 4196 


MACRO M1113 23-0CT-80 


. 

TEST NUMBER: TST 4 

TEST NAME: READ WRITE REG 
TEST DESCRIPTION: 


PATTERN TO ALL THE ML1 
READ/WRITE REGISTERS 


IMPLICIT INPUTS: 


RD 


REGISTER (REPRESENTS 


index, 
DODU_FLG; 


DODU_FLG = ZERO; 
TST_PAT = ONE; 


ince SHIFT from 0 to 15 do 
begin 


incr TWICE from 0 to 1 do 
begin 


L 12 
09:11 PAGE 168 


SHIFTING ONES/ZEROES TEST 


THIS TEST WRITES AND READS A 
SHIFTING ONE'S AND SHIFTING ZEROE'S 


1'S 


ROUTINES WRT_REG AND RD_REG 
ACCEPT ARGUMENTS TO FURTHER 
SELECT ROUTINES WHICH ACTUALLY 
PERFORMS THE READING AND 
WRITING OF THE REGISTERS. 


THE DRIVE IS DROPPED ON DETECTED 
ERRORS. 


WT_DATA 
COADED BY READ REGISTER ROUTINES AND 
CONTAINS THE DATA PATTERN WRITTEN TO THE 
REGISTERS (REPRESENTS GOOD DATA). 


DATA 
COADED BY THE READ REGISTER ROUTINES AND 
CONTAINS THE DATA PATTERN READ FROM THE 


BAD DATA). 


TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (47) 


‘ERROR FLAG PASSED TO ROUTINE 


'TEST PATTERN 


'POINTS TO REG PRESENTLY BEING TESTED 


!DROP UNIT FLAG 


'LOAD TST_PAT WITH A 1 IN A FILED OF O'S 


'DO SHIFT 16 TIMES 


'REPEAT LOOP TWICE 


SEQ 0154 


f 


M12 
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CZMLAAO ML-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 
'HARDWARD TEST SECTION SEQ 0155 
| 6432 5ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206). 
ee 22-0ct-1980 10:45:32  PA:<NEALE>BL2ML4.BLI.2 (47) 
6435 ; 4197 incr REG_SEL from 0 to 10 do 'TEST ELEVEN READ/WRITE REGISTERS 
6436 ; 4198 begin 
6437 ; 4199 BGNSUB; 
6438 ; 4200 CLR_MBUS; 
6439 ; 4201 WRT-REG (.TST_PAT, .REG_SEL, index); ‘WRITE TO THE REGISTER 
rat ; e508 RD_REG (. TST Pat, REG SEL, ERR_FLG); 'READ THE REGISTER 
6442 ; 4204 if .ERR_FLG IS_SET 'SEE IF THE READ FOUND AN ERROR 
6443 ; 4205 then 
6444 ; 4206 begin 'IF THE ERROR FLAG IS_SET THEN ERROR 
6445 ; 4207 
6446 ; 4208 selectone .REG_SEL of 'FIND WHICH MODULE FAILED 
6447 ; 4209 
6448 ; 4210 
6449 ; 4211 (0 to 3) : 
6450 ; 4212 ERRDF (5, ASYNC, 0); 'ASYNC MODULE FAILURE 
6451 ; 4213 
6452 4214 (4 to 5] : 
6453 ; 4215 ERRDF (5, SYNC, 0); 'SYNC MODULE FAILURE 
6454 ; 4216 
6455 ; 4217 [6 to 10] 
6456 ; 4218 ERRDF (S, ARR_DAT, 0); ‘!ARRAY DATA MODULE FAILURE 
6457 ; 4219 tes; 
6458 ; 4220 
6459 ; 4221 PRINTB (SIX_FMT, PHR_4, WRD_12, FNC_5, FNC_6, WRD_52, WRD_56); 
6460 ; 4222 PRINTB (FMT-16, .ML_REG C. index, REGISTER_ADD], .GT_DATA, .RD_DATA); 
6461 ; 4223 DODU_FLG = ONE; 
6462 ; 4224 end; P 
6463 ; 4225 
6464 ;- 4226 ENDSUB; 
6465 ; 4227 end; 
6466 ; 4228 
6467 ; 4229 TST_PAT = not .TST_PAT; 'REPEAT WITH AO IN A FIELD OF 1°S 
6468 ; 4230 end; 
6469 ; 4231 
6470 ; 4232 TST_PAT = .TST_PAT“ONE; 'SHIFT THE 1 iN THE FIELD OF O'S = 
6471 ; 4233 end; : 
6472 ; 4234 
6473 ; 4235 if .DODU_FLG IS_SET 'DROP THIS UNIT IF DODU_FLG IS SET - 
6474 ; 4236 th a 
6475 ; 4237 begin 
6476 ; 4238 DODU (.ML_LUN); 
6477 ; 4239 DOCLN; 
6478 ; 4240 end; 
6479 ; 4241 
ony ; 4242 ENDTST; 
6491 023040 004167 161014 $14: JSR R1,$SAVE5 ; 4143 
6492 023044 024646 CMP ~(SP),-(SP) 
6493 023046 005005 CLR R5 ; DODU. iS 4188 
6494 023050 012703 000001 MOV #1,R3 ; *,TST.P 4189 
6495 023054 005001 CLR R1 > SHIFT : 4191 
6496 623056 005002 1$: CLR R2 > TWICE ‘ 4195 
6497 023060 005004 2$: CLR R4 ; REG.SEL 4197 


BR OUR tie 


r on 


ue it kh” 
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LOGIC 1 
'HARDWARD TEST SECTION SEQ 0156 
6498 023062 104402 3$: TRAP = 2 ; 4198 
| 6499 023064 152777 000040 166646 BISB =: #40, aML.REG+40 : 4199 
6500 023072 016700 167072 MOV ML. 
| 6501 023076 042700 177770 BIC —«#177776,R0 
502 023102 142777 000007 166630 BICB = #7, AML..REG*+40 
6503 023110 150077 166624 BISB RO, aML.REG+40 
6504 023114 010346 MOV R3,-(SP) ; TST.PAT,* 4201 
6505 023116 010446 MOV R4.=(SP) + REG.SEL.* 
6506 023120 012746 000010 MOV #16,-(SP) 
6507 023124 060616 ADD SP, (SP) ; INDEX,* , 
6508 023126 004767 174470 JSR PC WRT.REG 
6509 023132 010316 MOV R3, (SP) ; 7$T.PAT,* 4202 
6510 023134 010446 MOV R4,-(SP) ; REG.SEL,* 
6511 023136 012746 900012 MOV #12,-(SP) 
6512 023142 060616 ADD SP, (SP) : ERR.FLG,* 
6513 023144 004767 175040 JSR PC,RD.REG 
6514 023150 026627 000012 000001 CMP 12(SP) 41 : ERR.FLG.* 4204 
6515 023156 001106 BNE 7$ 
6516 023160 005704 TST R4 : REG.SEL 4208 
6517 023162 002410 BLT 4$ 
6518 023164 020427 000003 CMP RG #3 : REG.SEL,* 
6519 023170 003005 BGT 4$ 
6520 023172 104455 TRAP = 55 : 4212 
6521 023174 000005 . WORD 
6522 023176 007444 "WORD ASYNC 
6523 023200 000000 “WORD 
6524 023202 000425 BR 6$ : 4208, 
6525 023204 020427 000004 4$: CMP R4 #4 : REG.SEL,* 
6526 023210 002410 BLT 5$ 
6527 023212 020427 000005 CMP R45 ; REG.SEL,* 
6528 023216 003005 BGT 5$ 
6529 023220 104455 TRAP 555 : 4215 
6530 023222 000005 WORD 
6531 023224 007500 WORD SYNC 
6532 023226 000000 WORD r 
6533 023230 000412 BR 6$ x ; 4208 
6534 023232 020427 000006 S$. . CMP RG, #6 > REG.SEL,* 
6535 023236 002407 » BLT 6$ 
6536 023240 020427 000012 CMP R4, #12 : REG.SEL,* 
6537 023244 003004 BGT 6$ 
6538 023246 104455 TRAP 55 ; 4218 
6539 023250 000005 WORD 5 
6540 023252 007534 "WORD = ARR.DAT 
6541 M4 22-Oct-1980 10:47:44 TOPS 
ort : 22-0ct-1980 10:45:32 PA:< 
6 “ 
6544 023254 000000 .WORD 0 
6545 023256 012746 006454 6$: MOV #WRD.56,-(SP) 4221 
6546 023262 012746 006420 MOV #WwRD.52.-(SP) 
6547 023266 012746 007030 MOV #FNC.6,-(SP) 
6548 023272 012746 007020 MOV #FNC.5.-(SP) 
6549 023276 012746 005760 MOV #WRD.12,-(SP) 
6550 023302 012746 006630 MOV #PHR.4,-(SP) 
6551 023306 012746 005432 MOV #SIX.FAT,-(SP) 
6552 023312 012746 000007 MOV #7,-(SP) 
6553 023316 010600 MOV SP.RO > SP,* 
6554 023320 104414 ; TRAP 14 


CZMLAAO 
HARDWARD 


6587 023454 
6588 023456 
6589 023460 
6590 


6614 023474 


000207 


004767 


000207 


166344 
166336 
000036 


011700 
005154 
000004 


000001 
000030 
000012 


000012 


000001 


000017 


166514 


177352 


7$: 


8$: 


; Routine Size: 
; Maximum stack 


CHG, 4B. PUPPIES YF 
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RD .DATA, (SP) 

WT .DATA,-(SP) 

36 (SP) ,RO 

RO 

RO 

RO 

ML ..REG(RO) , (SP) 


#FMT.16,-(SP) 
Sea 


-LUN,RO 
(SP)+,(SP)+ 
PC 


137 words 


depth per invocation: 


PC, $14 
66 


INDEX,* 


SP,* 
* ,DODU.FLG 


REG.SEL 
REG.SEL,* 


TST.PAT 
TWICE 
TWICE,* 


TST.PAT 
SHIFT 
SHIFT,* 


DODU.FLG 


SEQ 0157 
4222 


4240 


CZMLAAO ML-11 
'HARDWARD TEST 


7ML4 


Be Se Be Oe Be Se Se Se Ge Be He Se Ge Se Se Be Se Se Be Ge Be Ge Ge Ge Fe Ge Ge Ge Gs Se Se Se Be Se Ge Se Be Be Ge Ge Ge Ge Be Ge Se Ge Ge Ge Ge Ge Ge Se 


BGNTST; 


'o4+ 


C13 
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: TEST NUMBER: TST 5 


local 


| TEST NAME: 


IMPLICIT INPUTS: 
REG_IN 


REGISTER INITIALIZATION TEST 


| TEST DESCRIPTION: 
THI 


S TEST TESTS THE ABILITY OF 
ALL ACCESSIBLE ML11 REGISTERS 
TO CLEAR OUT REGISTER DATA OF 
ONE'S AND ZEROES PATTERN. 


ROUTINE WRT_REG WRITES 
PATTERN TO THE SELECTED *REGISTER. 


A MASS BUS CLEAR IS DONE. 


THEN ROUTINE RD_REG READS THE 
SELECTED REGISTER FOR CLEARED D 
THE DRIVE IS DROPPED ON BeTECTED. ERRORS. 


THIS TEST WILL ALSO READ THE 
DRIVE TYPE REGISTER FOR ITS 
INITIAL REGISTER VALUE. 


IT_FLG 
THIS GLOBAL FLAG TELLS THE ROUTINES 
WHICH READ THE BATA. DIAGNOST it 
REGISTERS (RD_D1, 3) 
TO DO A MBUS CLEAR atte RREADING 
THE REGISTER DURING THE REG INIT 


THIS FLAG IS NEEDED DUE TO THE UNIQUE 
MANNER IN WHICH THESE REGISTERS 
MUST BE READ. 


RD_DATA 

LOADED BY THE READ REGISTER ROUTINE 

AND CONTAINS THE DATA PATTERN READ FROM 
THE REGISTER (REPRESENTS BAD DATA). 


DRIVE TYPE 

LOADED DURING THE INITIALIZATION CODE AND 
STORES THE EXPECTED CONTENTS OF THE DRIVE 
TYPE REGISTER. 


TOPS=20 Bliss=-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (48) 


SEQ 0158 


D 13 
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HARDWARD TEST SECTION SEQ 0159 
6676 ;ML4 22-0ct-1980 1 7:44 TOPS=-20 Bliss-16 V2(206) — 
eert ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (48) 
6679 ; 4297 TST_PAT, 'TEST PATTERN 

| 6680 ; 4298 ERR “FLG, 'ERROR FLAG PASSED TO ROUTINE 

| = 681; 4299 ndex ‘POINTS TO REG PRESENTLY BEING TESTED 
6682 ; 4300 CLR DATA, . 'STORES CALCULATED REGISTER CLEAR DATA 
6683 ; 4301 SAVE, 'TEMPORARY STORAGE LOCATION 
6684 ; 4302 DODU_FLG; ‘DROP UNIT FLAG 
6685 ; 4303 
6686 ; 4304 ML_REG (19, FORCE_HI] = %0'177777'; 'CLR DATA FOR MLPD IS ONES 
6687 ; 4305 REG_INIT_FLG = ZERO; 
6688 ; 4306 v0Dd0 FLG = ZERO; 
6689 ; 4307 TST_BAT = ONES; ‘BACKGROUND PATTERN 
6690 ; 4308 
6691 ; 4309 incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
6692 ; 4310 begin 
6693 : 4311 
6694 ; 4312 incr REG_SEL from 0 to 13 do 'TEST THIRTEEN REGISTERS 
6695 ; 4313 begin 
6696 : 4314 BGNSUB; 
6697 ; 4315 CLR_MBUS; 
6698 ; 4316 WRT_REG (.TST_PAT, REG SEL, penny ‘WRITE REGISTER WITH BACKGROUND 
rte ; rt HA CLR_DATA = (.AI) or (. IGNORE) ‘CALCULATE THE CLEARED DATA PATTERN 
6701 ; 4319 if (.REG_SEL neq 7) and (.REG_SEL neq 8) and (.REG_SEL neq 9) ‘OK 10 CLEA THESE REG'S HERE 
6702 ; 4320 then 
6703 ; 4321 begin 
6704 ; 4322 CLR_MBUS; 
6705 ; 4323 end 
6706 ; 4324 else 
$707 : oes “REG. INIT_FLG = ONE; 'LET READ REG ROUTINE CLEAR THE REMAINING REG'S 
6 ; 
tA 44 : 3g? RD_REG (.CLR_DATA, .REG_SEL, ERR_FLG); ‘READ THE REGISTER FOR THE CLEARED DATA PAT 
6711; 4329 if .ERR_FLG IS_SET ° 'SEE IF READ FOUND AN ERROR 
6712 ; 4330 then 
At ; ri tH begin ‘IF ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG 
6715 ; 4333 selectone .REG_SEL of 'FIND WHICH MODULE FAILED 
6716 ; 4334 set 
6717 ; 4335 
6718 ; 4336 4s Ba Ba Mea tee te 
6719 ; 4337 ERRDF (6, ASYNC, 0); 'ASYNC MODULE FAILURE 
6720 ; 4338 
6721 ; 4339 4, 3, Vis 7 
6722 ; 4340 ERRDF (6, SYNC, 0); 'SYNC MODULE FAILURE 

i 6723 ; 4341 
6724 ; 4342 [6 to 10) 
6725 ; 4343 ERRDF (6, ARR_DAT, 0); ‘ARRAY DATA MODULE 
6726 ; 4344 tes; 
6727 ; 4345 

| 6728 ; 4346 PRINTB (SIX_FMT, PHR_4, WRD_12, WRD_52, WRD 23, WRD 52, WRD_56); 
6729 ; 4347 PRINTB (FMT_16, .ML “REG (.index, REGISTER ABDI, .CLR “DATA, TRD “BATA; 
6730 ; 4348 DODU_FLG = ONE; 


| 


Ss sss -essesssssssseseesneeen nn 


CZMLAAO ML-11 LOGI 
HARDWAPD TEST SECT 


6732 ;ML4 
6733 ; 


oa 
Ns 
a 
o 
ee ee ee ee ee ee ee ee ee Pe ee ee Pe ee ee ee ee ee Pe ee ee ee ee ee ee ee 


oa 
“N 
oa 
“" 


6773 023476 
6774 023502 
6775 023506 


6785 023552 


C TEST 
ION 


142777 


MACRO M1113 23-OCT-80 09:11 
end; 
ENDSUB; 
end; 
TST_PAT = not .TST_PAT; 
end; 
ML_REG C19, FORCE_HI] = ZEROES; 
1 
NOW TEST THE DRIVE TYPE REGISTER 
i 
if .MLDT neq .DRIVE_TYPE 


then 
4 (113, ASYNC, 0); 


PRINTB (TWO_FMT, REG 7, PHR_4); 
PRINTB (FMT_2, ‘DRIVE. TYPE,~. SAVE); 
end; 
if .DODU_FLG IS_SE) 
then 
coun 
DODU (.ML_LUN); 
DOCLN; 
end; 
ENDTST; 
160356 $15: JSR R1 + SSAVES 
000006 SUB i 
177777 166416 MOV #-i a. REG+232 
166156 CLR REG. INIT.FLG 
CLR R5 
177777 MOV #-1,R2 
CLR R1 
1$: CLR RG 
: TRAP 2 
000040 166176 BISB #40,aML.REG*+40 
166422 MOV ML .OUT,R3 
177770 BIC aah R3 
000007 166160 BICB #7,aML .REG+40 


E 13 
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SEQ 0160 


44 TOPS=20 Bliss-16 V2(206) 
:32 PA:<NEALE>BL2ML4.BLI1.2 (48) 


!REPEAT WITH COMPLIMENT BACKGROUND PAT 


‘RESTORE MLPD FORCED_HI 


!COMPARE REG CONTENTS TO CALCULATED VALUE 


‘DROP THIS UNIT IF DODU_FLG IS_SET 


7 
> 
Las) 
> 
Nm 


DODU.FLG 
*,TST.PAT 
TWICE 
REG.SEL 


CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 


6787 

6788 

6789 

6790 023560 150377 
| ©6791 023564 010246 
| = 6792 023566 010446 

6793 023570 012746 

6794 023574 060616 


Ww 
© 
o 
—m 
= 
Oo 
—_ 
™ 
Oo 
Nm 
So 
= 
™m 
GN 


684 
6841 024020 020427 


166154 


000012 


174020 
000012 


011702 
011706 
000006 
000007 
000010 
000011 


000040 


166034 


000001 
000006 


000014 


174254 
000014 


000003 
000014 
000015 


000004 
000005 
000013 


166056 


166040 


165762 


000001 


sML4 


. 
’ 


3$: 
4$: 


5$: 


6$: 


7$: 


8$: 


F_13 
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R3,aML .REG*40 
R2,-(SP) 


12(¢SP) ,RO 
RO 
RO 
RO 


RO,R3 
ML.REG+2(R3) ,RO 
ML .REG+6(R3) ,RO 
RO,6(SP) 

R4 #7 


3$ 
R4,#10 
3$ 
R4,#11 
3$ 
#40,aML.REG+40 
ML .OUT,RO 
#1777706,R0 
#7,QML.REG+40 
RO, AML .REG+40 


#1 REG. INIT.FLG 
6(SP), (SP) 
R4,-(SP) 
#14,-(SP) 

SP, (SP) 
PC,RD.REG 
tila 


8$ 
R445 
9% 
R4,813 


3 T$t. 
; REG. 


; INDE 
; INDE 


PAT,* 
SEL.* 


X,* 
X,* 


; #,CLR.DATA 
; REG. 


; REG. 
; REG. 


SEL,* 
SEL,* 
SEL.* 


DATA,* 
SEL.* 


-FLG,* 
-FLG,* 
~SEL 

-SEL.* 
-SEL,* 
-SEL,* 


-SEL,* 
~SEL,* 
-SEL,* 


SEQ 0161 


147:44 TOPS 
2:45:32 PA:< 


4316 


4317 


4319 


4321 


4337 


4333 


6896 024252 
6897 024254 


CZMLAAO ML=11 LOGIC TEST 
HARDWARD TEST SECTION 


001005 


000161 
007444 


MACRO Mi113 23-OCT-80 09:11 


000006 
000012 


006454 


000007 


165536 


000004 


000001 
000030 
000012 


177324 
000015 


000001 
177274 
165672 
165564 165426 


7ML4 


9$: 


10$: 


118: 


128: 


14$: 


G_13 
PAGE 174 


ARR.DAT 
0 


#WRD.56,-(SP) 
#WRD.52,-(SP) 
#WRD.23,-(SP) 
#WRD.52,-(SP) 
#WRD.12,-(SP) 
#PHR.4,-(SP) 
@SIX.FMT,-(SP) 
#7,-(SP) 


. 


RD.DATA, (SP) 
32(SP),-(SP) 
ML ..REG(R3) ,-(SP) 
#FMT.16,-(SP) 


ML .REG+232 
77 iat ache i 


55 
161 
ASYNC 


> REG.SEL,* 
; REG.SEL,* 


; ,* 


CLR.DATA,* 


; #,* 


* ,DODU.FLG 


; REG.SEL 
; REG.SEL,* 


TST.PAT 
TWICE 
TWICE,* 


SEQ 0162 


TOPS 
PA:< 
4340 


4333 


4343 


4346 


4347 


CZMLAAO ML=11 LOGIC TEST 


HARDWARD TEST SECTION 


69 

6939 024354 
6940 024354 
6941 024360 
6942 024362 
6943 024364 
6944 024366 
6945 


oo-OoOoCo°oeo 
SO 49 OE 
Nm 
~“N 
y 
oa 


000207 


004767 


000207 


4380 


H_13 
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006630 


000003 


165362 
604224 
000003 


000016 


165624 


000006 


177116 


! <BLF /PAGE > 


168: 


17$: 


; Maximum stack 


| 
awn 


; Routine Size: 


; Routine Size: 


; Meximum stack depth per invocation: 


R4, (SP) 

DRIVE. TYPE,-(SP) 
#FMT.2,-(SP) 
#3,-(SP) 

SP,RO 

14 


#16,SP 
RS 
17% 
ML.LUN,RO 
51 
44 
#6,SP 
PC 
215 words 


depth per invocation: 


6 words 


26 words 


0 words 


SP,* 
SAVE ,* 


SP,* 


+ DODU.FLG 


SEQ 0163 


TOPS 
PA:< 


4368 


4369 


4366 
4372 
4375 


4242 


4377 


CZMLAAO ML=11 LOGIC TEST 
HARDWARD TEST SECTION 


1_13 
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TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (49) 


DIRECTLY 


ONE REGISTER 


6954 ;ML4 22-0ct-1980 10:47:44 
6955 ; 22-0ct-1980 10:45:32 
6956 
6957 ; 4381 ! 
= 6958 ; 4382 ! 
6959 ; 4383 ! 
6960 ; 4384 BGNTS7; 
| 6961 ; 4385 
6962 ; 4386 !++ 
6963 ; 4387 ! TEST NUMBER: TST 6 
6964 ; 4388 =! 
6965 ; 4389 ! TEST NAME: REGISTER SELECTION TEST 
—— 6966 ; 4390 ° 
6967 ; 4391 ! TEST DESCRIPTION: 
6968 ; 4392 =! THIS TEST TESTS FOR UNIQUE REGISTER 
6969 ; 4393! SELECTION BY FIRST WRITING A BACKGROUND 
6970 ; 4394! PATTERN INTO ALL READ/WRITE REGISTERS 
6971 ; 4395! 
6972 ; 4396! IT THEN WRITES A COMPLIMENT 
6973 ; 4397 ! BACKGROUND PATTERN INTO ONE REGISTER 
H 6974 ; 4398 ! AND READS THE REMAINING UNWRITTEN 
6975 ; 4399! REGISTERS FOR AN UNCHANGED BACKGROUND 
6976 ; 4400 ! PAT 
6977 ; 4401 ! 
6978 ; 4402 ! THIS PROCEDURE IS REPEATED UNTIL ALL 
6979 ; 4403 ! REGISTERS HAVE BEEN WRITTEN WITH A 
6980 ; 4404 |! COMPLIMENT BACKGROUND PATTERN. 
6981 ; 4405 ! 
6982 ; 4406 ! IMPLICIT INPUTS: NONE 
6983 ; 4407‘! 
6984 ; 4408 ! 
6985 ; 4409 !-- 
6486 ; 4410 
6987 ; 4411 local 
6988 ; 4412 DODU_FLG, 'DROP UNIT FLAG 
6989 ; 4413 TST_PaT, 'TEST PATTERN 
6990 ; 4414 ERR_FLG, 'ERROR FLAG PASSED 70 ROUTINE; 
6991 ; 4415 index; 'POINTS TO REGISTER PRESENTLY BEING TESTED. 
6992 ; 4416 
6993 ; 4417 BGNSUB; 
6994 ; 4418 CLR_MBUS 
6995 ; 4419 DODO_FLG = ZERO; 
6996 ;: 4420 TST_BaT = %0'125252': 'LOAD TST_PAT WITH ALTERNATE 1°S & O'S 
6997 ; 4421 WRT_CS1 (.TST_PAT, 0); ‘WRITE A BACKGROUND INTO ALL THE 
6998 ; 4422 WRT_ER (.TST_PAT, 6); 'ACCESSABLE READ WRITE REGISTERS 
6999 ; 4423 WRT_DA (.TST_PAT, 3); 
7000 ; 4424 WRT_PA (.TST_PAT, 8); 
7001 ; 4425 WRTE1 (.TST_PAT, 13); 
7002 ; 4426 WRTE2 (.TST_PAT, 14); 
7003 ; 4427 
7004 ; 4428 incr CNT_1 from 9 to 4 do 'WRITE A COMPLIMENT PATTERN INTO 
| 7005 ; 4429 peg te 
ros : ry TST_PAT = not .TST_PAT; 'GENERATE THE COMPLIMENT PAT 
| 7008 ; 4432 case .CNT_1 from 0 to 4 of ‘SELECT THE REGISTER TO WRITE INTO 


SEQ 0164 





CZMLAAO ML-11 
HARDWARD TEST 


7ML4 


L 
S 


0G 
EC 


l 
T 


C TEST 
ION 


MACRO M1113 23-OCT-80 09:11 


set 


2: 
WRT_CS1 (.TST_PAT 0); 


1]: 
WRT_ER (.TST_PAT, 6); 


i 
WRT_DA (.TST.PAT, 3); 


J: 
WRT_PA (.TST_PAT, 8); 


3% 
WRT_E1 (.TST_PAT, 13); 


tes; 
TST_PAT 


incre CNT_2 from .CNT_1 + 1 to 5 do 


= not .TST_PAT; 


begin 


case .CNT_2 from 0 to 5 of 


if 
the 


set 


PAGE 


3 3 
RD_CS1 (.TST_PAT, index 


J; 
RD_ER (.1ST_PAT, 


C2) : 
RD_DA (.TST_PAT, 


(3) : 
RD_PA (.TST_PAT, 
a4 

RD_E1 (.TST_PAT, 


as 
RD_E2 (.TST_PAT, 
tes; 


-ERR_FLG IS_SET 
n 


begin 


selectone .CNT_2 of 


index 
index 
index 
index 


index 


44 TOPS=20 Bliss-16 V2(206) 
:32 PA: <NEALE>BL2ML4.BLI.2 (49) 


!FIRST PASS WRITE COMP PAT TO MLCS1 


SECOND PASS WRITE COMP PAT TO MLER 


!THIRD PASS WRITE COMP PAT TO MLDA 


‘FORTH PASS WRITE COMP PAT TO MLPA 


'FIFTH PASS WRITE COMP PAT TO MLE1 


!COMPLIMENT TST_PAT BACK TO BACKGROUND 


'NOW READ THE REMAINING UNWRITTEN REGISTERS FOR AN 
‘UNCHANGED BACKGROUND 


'SELECT THE REGISTER TO READ 


0, ERR_FLG); 
6, ERR_FLG); 
3, ERR_FLG); 
8, ERR_FLG); 
13, ERR_FLG); 
14, ERR_FIG); 


'SEE IF 


'READ MLCS1 


'READ MLER 


'READ MLDA 


'READ MLPA 


‘READ MLE1 


!READ MLE2 


READ FOUND AN ERROR 


SEQ 0165 
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HARDWARD TEST SECTION SEQ 0166 
7066 ;ML4 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
A's dh ; 2270ct-1980 10:45:32 PA: <NEALE>BL2ML4.BLI.2 (49) 
7069 ; 4485 (0 to 2): 
7070 ; 4486 ERRDF 4110, ASYNC, 0); 'ASYNC MODULE FAILURE 
7071 ; 4487 
7072 ; 4488 (3 to 5): 
7073 ; 4489 ERRDF (110, ARR_DAT, 0); ‘ARRAY DATA MODULE FAILURE 
7074 ; 4490 tes; 
7075 ; 4491 
7076 : 4492 PRINTB (THR_FMT, WRD_38, WRD_37, W 
7077 ; 4493 PRINTB (FMT_16, .ML_REG C.index, REGISTER. ADD], .WT_DATA, .RD_DATA); 
7078 ; 4494 DODU_FLG = ON NE; 
7079 ; 4495 end; 
7080 ; 4496 
7081 ; 4497 end; 
7082 ; 4498 ‘ f 
7083 ; 4499 end; se 
7084 ; 4500 ‘ 
7085 ; 4501 ENDSUB; , 
7086 ; 4502 
7087 ; 4503 it .DODU_FLG IS_SET ‘DROP THIS UNIT IF DODU_FLG IS_SET 
7088 ; 4504 then 
7089 ; 4505 bogie 
7090 ; 4506 DODU (.ML_LUN); 
7091 ; 4507 DOCLN; 
7092 ; 4508 end; 
7093 ; 4509 
ee 3 4510 ENDTST; 
7102 024370 004167 157464 - -$T6: JSR R1, SSAVES : 4379 
7103 024374 005746 TST -($P) 
7104 024376 104402 1$: TRAP 2 : 4415 
7105 024400 152777 000040 165332 BISB #40,aML.REG+40 i 4417 
7106 024406 016703 165556 MOV M 
7107 024412 042703 177770 BIC #177770,R3 
7108 024416 142777 000007 165314 BICB #7, AML .REG+40 
7109 024424 150377 165310 BISB R3,aML.REG+40 : 
7110 024430 005005 CLR R5 ; DODU.FLG . 4419 
7111 024432 012704 125252 MOV or oe rest R4 : *,TST.PAT 4420 
7112 024436 010446 ° MOV R4,-(SP) : TST.PAT,* 4421 
7113 024440 005046... CLR -(§P) 
7114 024442 004767 167526 JSR PC,WRT.CS1 
7115 024446 010416 MOV R4, (SP) ; TST.PAT,* 4422 
7116 024450 012746 000006 MOV #6,-(SP) 
7117 024454 004767 167672 JSR PC,WRT.ER 
7118 024460 010416 MOV R4, (SP) : TST.PAT,* 4423 
7119 024462 012746 000003 MOV #3,-(SP) 


L_13 
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CZMLAAO ML=11 LOGIC 1 
HARDWARD TEST SECTION SEQ 0167 
| 7121 ML4 22-Oct-1980 10:47:44 TOPS 
11g : 22-0ct-1980 10:45:32 PA:< 
| 
| 7124 024466 004767 170036 JSR PC,WRT.DA 
7125 024472 010416 MOV RG, (SP) TST.PAT,* 4424 
| 7126 024474 012746 000010 MOV #10,-(SP) 
' 7127 024500 004767 170360 JSR PC,WRT.PA 
| = 7128 024504 010416 MOV R4, (SP) TST.PAT,* 4425 
| 7129 024506 012746 000015 MOV #15, =(SP) 
7130 024512 004767 170554 JSR PC,WRT.E1 
7131 024516 010416 MOV RG. (SP) TST.PAT,* 4426 
7132 024520 012746 000016 MOV #16,-(SP) 
7133 024524 004767 170750 JSR PC ,WRT.E2 
7134 024530 005001 CLR R1 CNT.1 4428 
7135 024532 005104 2$: COM R4 TST.PAT 4430 
7136 024534 010103 MOV R1,R3 CNT.1,* 4432 
7137 024536 006303 ASL R3 
7138 024540 066307 024544 ADD 3$(R3) ,PC 
7139 024544 000012 3$: .WORD 4$-3$ 
7140 024546 000024 “WORD 5$-3$ 
7141 024550 000040 “WORD 6$-3$ 
7142 024552 000054 "WORD 7$-3$ 
7143 024554 000070 “WORD 8$-3$ 
7144 024556 010446 4$: MOV R4,-(SP) : TST.PAT,* 4436 
7145 024560 005046 CLR -(§P) 
7146 024562 004767 167406 JSR PC,WR1.CS1 
7147 024566. 000427 BR 9$ :; 4432 
7148 024570 010446 5$: MOV R4,-(SP) » UST Pal a 4439 
7149 024572 012746 000006 MOV #6.-(5P) 
7150 024576 004767 167550 JSR PCWRT.ER 
7151 024602 000421 BR 4432 
7152 024604 010446 6$: MOV R4,-(SP) TST.PAT,* 4442 
7153 024606 012746 000003 MOV #3,-(SP) 
7154 024612 004767 167712 JSR PC.WRT.DA 
_ 7155 024616 000413 BR 9$ 4432 
~ 7156 02462 010446 7$: MOV R4,-(SP) TST.PAT,* 4445 
7157 024622 012746 000010 MOV #16,-(SP) 
7158 024626 004767 170232 JSR PC,WRT.PA 
7159 024632 000405 BR 9$ 4432 
71 024634 010446 8$: MOV R4,-(SP) TST.PAT,* 4448 
7161 024636 012746 000015 MOV #15,-(SP) 
7162 024642 004767 170424 JSR PC,WRT.E1 
7163 02464 005104 9$: COM R4 : TST.PAT 4451 
7164 024650 010103 MOV R1,R3 : (NT.1,CNT.2 4453 
7165 024652 000576 BR 22$ 
66 024654 010300 10$: MOV R3,RO : (NT.2,* 4456 
7167 024656 006300 ASL RO 
7168 024 066007 024664 ADD 11$(RO) ,PC 
7169 02% 000014 118: “WORD 12$-11$ 
7170 024666 000036 "WORD 13$-11$ 
7171 024670 00006 "WORD 14$-11$ 
7172 024672 000106 "WORD 15$-11$ 
7173 024674 00013 "WORD 16$-11$ 
| 717% 024676 000156 "WORD ««17$-118 
7175 024700 010446 12$: MOV R4,-(SP) - TST.PAT,* 4469 
} 





---- 


| M13 
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HARDWARD TEST SECTION 


| 777 MUG 
7178 : 

| 7179 
7180 024702 005002 CLR 
7181 024704 005046 CLR = (SP) 
7182 024706 012746 000030 MOV #30,-(SP) 
7183 024712 060616 ADD SP, (SP 
7184 024714 004767 167324 JSR PC-RD.CS1 
7185 024720 000461 BR 18$ 
7186 024722 010446 13$: MOV R4,-(SP) 
7187 024724 012702 000006 MOV #6.R2 
7188 024730 010246 MOV R2.=(SP) 
7189 024732 012746 000030 MOV #30,-(SP) 
7190 024736 060616 ADD SP, (SP) 
7191 024740 004767 167456 JSR PC’RD.ER 
7192 024744 000447 BR 18$ 
7193 024746- 010446 14$: MOV RG, -(SP) 
7194 024750 012702 000003 MOV #3,R2 
7195 024754 010246. MOV R2.=(SP) 
7196 024756 012746 000030 , MoV =—s- #30, = (SP) 
7197 024762 060616 ADD SP, (SP) 
7198 024764 004767 167610 JSR PC’RD.DA 
7199 024770 000435 BR 18$ 
7200 024772 010446 15$: MOV R4,-(SP) 
7201 024774 012702 000010 MOV #10,R2 
7202 025000 010246 MOV R2,-(SP) 
7203 025002 012746 000030 MOV #30,-(SP) 
7204 025006 060616 ADD SP, (SP) 
7205 025010 004767 170134 JSR PC’RD.PA 
7206 025014 000423 BR 18$ 
7207 025016 010446 ‘ 16$: MOV R4,-(SP) 
7208 025020 012702 000015 MOV #15,R2 
7209 025024 010246 MOV R2 ,-(SP) 
7210 025026 012746 000030 MOV #30,-(SP) 
7211 025032 060616 ADD SP, (SP) 
7212 025034 004767 170316 JSR PC/RD.E1 
7213 025040 000411 BR 18$ 
7214 025042 010446 17$: MOV R4,-(SP) 
7215 025044 012702 000016 MOV #16,R2 
7216 025050 010246 MOV R2,-(SP) 
7217 025052 012746 000030 MOV #30,-(SP) 
7218 025056 060616 ADD SP, (SP) 
7219 025060 004767 170512 JSR PC-RD.E2 
7220 025064 026627 000030 000001 18%: CMP 30(SP) #1 
7221 025072 091064 BNE 21$ 
7222 025074 005703 TST R3 
7223 025076 002410 BLT 19$ 
7224 025100 020327 000002 CMP R342 
7225 025104 003005 BGT 19 
7226 025106 104455 TRAP 5 
7227 025110 000156 “WORD 156 
7228 025112 007444 «WORD ASYNC 
7229 025114 00000 “WORD 
7230 025116 000412 BR 20% 
7231 025120 020327 000003 19$: CMP R3,43 


| 


; INDEX 
; ERR.FLG,* 


; TST.PAT,* 
; *, INDEX 
; INDEX,* 
; ERR.FLG,* 
; TST.PAT,* 
; *, INDEX 
; INDEX,* 
; ERR.FLG,* 


: TST.PAT,* 
: , INDEX 


; ERR.FLG,* 


; TST.PAT,* 
; *, INDEX 
3; INDEX,* 


; ERR.FLG,* 
; TST.PAT,* 
; ERR.FLG,* 
; ERR.FLG,* 


; CNT.2 
; CNT.2,* 


; CNT.2,* 


SEQ 0168 


47:44 TOPS 
45:32 PA:< 


4456 
4463 


4456 
4466 


4456 
4469 


4456 
4472 


4456 
4475 


4478 


4482 


4486 


4482 


on — ee 


‘CZMLAAO ML=-11 LOGIC TEST 


HARDWARD TEST SECTION 


7233 

7234 

7235 

7236 025124 
7237 025126 
7238 025132 
7239 025134 
7240 025136 
7241 025140 
7242 025142 
7243 025144 
7244 025150 
7245 025154 
7246 025160 

0251 


7247 64 
7248 025170 


S¥SSORSS -_=— 
FMS fLMOLSNOSO 


000005 


005740 


000004 


164472 
164464 


011700 
005154 
000004 


000001 
000022 
000006 
000005 


177370 
000004 


177230 
000016 


177056 


164636 


7ML4 


208: MOV 


c1$: 


228: INC 


238: 


248: ADD 


258: DEC 


26$: TST 


; Routine Size: 


3; Maximum stack depth per invocation: 


adil gS Bei / N13 
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#WRD.10,-(SP) 
#WRD.37,-(SP) 
#WRD.38,-(SP) 
#THR.FMT,-(SP) 
#4 ,-(SP) 

SP,RO 

14 


RD.DATA, (SP) 
WT .DATA.-(SP) 
R2,RO 

RO 

RO 

RO 

ML .REG(RO),-(SP) 
#FMT.16,-(SP) 
#4,-(SP) 

SP, 

14 

#1,R5 

#22,SP 


R 

R3,#5 

23$ 

10$ 
(SP)+,(SP)+ 
R1 

R1,#4 

2 


ML.LUN,RO 
51 

Ge 

(SP)+ 

PC 


244 words 


28 words 


CNT.2,* 


SP,* 


INDEX,* 


SP,* 
* ,.DODU.FLG 


CNT.2 
CNT.2,* 


CNT.1 
CNT.1,* 


DODU.FLG 


22-Oct-19 
22-Oct-19 


0 10: 
0 10: 


SEQ 0169 
47:44 TOPS 
2:45:32 PA:< 

4489 
4492 
4493 


4379 


e - - _—— —— — -—_ -- — 


‘CZMLAAO ML=11 LOGIC TEST 


'HARDWARD TEST SECTION 


09 025350 103773 
tase 025352 000207 


7320 ; 4511 


eS oie. B14 
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7306 025340 004767 177024 
104466 


! <BLF /PAGE> 


3ML4 

T6: 

1$: JSR 
TRAP 
ROR 
BLO 
RTS 


; Routine Size: 


; Maximum stack depth per invocation: 


PC, $16 


6 words 


Q words 


SEQ 0170 
22-0¢t-1980 10:47:44 TOPS 
22-Oct-1980 10:45:32 PA:< 

4508 


‘CZMLAAO ML=11 


C 14 
LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 183 
/HARDWARD TEST SECTION SEQ 0171 


7322 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) © 
at ; 22-0¢t-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (50) 
7325 ; 4512 | 
7326 ; 4513! 
7327 ; 4514 BGNTST; 
7328 ; 4515 
7329 ; 4516 !++ 
7330 ; 4517 ' TEST NUMBER: TST 7 y 
7331 ; 4518 | . 
7332 ; 4519 i TEST NAME: PRINT SERIAL NUMBER 
7333 ; 4520 | 
7334 ; 4521 i TEST a, ae 
7335 ; 4522 | UPON A YES RESPONSE TO THE 
7336 ; 4523 i SOF TWARE QUESTION ‘PRINT SERIAL NO?' 
7337 ; 4524 PRINT OUT THE DRIVE UNDER TEST 
7338 ; 4525! SERIAL NUMBER. . 
7339 ; 4526 | 
7340 ; 4527 IMPLICIT INPUTS: NONE 
7341 ; 4528 | 
7342 ; 4529! 
7343 ; 4530 i- 
7344 ; 4531 
7345 ; 4532 external 
to $ o387 PRSN; 'LOCATION WHERE ANSWER TO SW QUESTION IS STORED 
Ht 9 3 ret H if .PRSN IS_SET then PRINTB (FMT_3, .MLSN); 'PRINT DRIVE SERIAL NO. IF ANS IS YES. 
7350 ; 4537 ENDTST; 
7354 
7355 -GLOBL PRSN 
13 
{5 ’ 
7361 025354 026727 154760 000001 $17: CMP PRSN,#1 : 4535 
7362 025362 001012 : BNE 1$ 
7363 025364 017746 164450 MOV QML .REG+140,-(SP) 
7364 025370 012746 004312 MOV #FMT.3,-(SP) 
7365 025374 012746 000002 MOV #2,-(SP) 
7366 025400 010600 MOV SP,RO ; SP.t 
7367 025402 104414 TRAP 14 
7368 025404 062706 000006 ADD #6,SP 
7369 025410 000207 1$: RTS PC : 4510 
7377 ’ 
7378 
7382 
7386 025412 17 
7387 025412 004767 177736 1$ JSR PC,$T7 : 4535 
7388 025416 104466 TRAP 66 
7389 025420 006000 ROR RO 
7390 025422 103773 BLO 1$ 


7391 025424 000207 RTS PC 


-- 


CZMLAAO ML-11 LOG 


D 14 
IC TEST MACRO M1113 23-OCT-80 09:11 PAGE 184 
HARDWARD TEST SECTI 


ON SEQ 0172 


7397 ;ML4 22-Oct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
hae ; 22-0ct-1980 10:45:32 PA: <NEALE>BL2ML4.BLI.2 (51) 
7400 ; 4539! 
| 76401 ; 4540 ! 
| 7402 ; 4541 BGNTST; 
| 7603 ; 4542 
| 7404 ; 4543 !4+ 
7405 ; 4544 ' TEST NUMBER: TST 8 
7406 ; 4545! 
7407 ; 4546 | TEST NAME: C-BUS PARITY TEST 
7408 ; 4547 | 
| 7409 ; 4548 | TEST DESCRIPTION: 
7410 ; 4549 | TEST THE CONTROL BUS PARITY 
7411 ; 4550 | DETECTION AND GENERATING BY: 
7412 ; 4551! 
7413; 4552! 1. WRITING BAD age by TO DEVICE 
7414 ; 4553! AND TEST CPAR SET 
7415 ; 4554! 
7416 ; 4555! 2. WRITING GOOD PARITY TO DEVICE 
7417 ; 4556! AND TEST CPAR CLR. 
7418 ; 4557 | 
7419 ; 4558 | 3. READING DEVICE AND TEST GOOD 
7420 ; 4559! PARITY GENERATION BY READING 
7421 ; 4560 ! MCPE CLR. 
7422 ; 4561 | 
7423 ; 562 | IMPLICIT INPUTS: NONE 
7424 ; 4563! 
7425 ; 4564 | 
7426 ; 4565 '- 
7427 ; 4566 
7428 ; 4567 Local 
7429 : 4568 SAVE, ‘TEMPORARY SAVE LOCATION 
7430 ; 4569 TST_PAT; 'TEST PATTERN 
7431 ; 4570 j 
7432 ; 4571 if .PAR_DIS IS_NOT_SET 'SEE IF PARITY IS DISABLED 
7433 ; 4572 th - 
7434 ; 4573 begin 'BEGIN IF PARITY IS ENABLE 
7435 ; 4574 TST_PAT = %0'125252'; ‘ALTERNATING 1, 0 PATTERN 
7436 ; 4575 
7437 ; 4576 incr TWICE from 1 to 2 do ‘REPEAT LOOP TWICE 
7438 ; 4577 begin 
7439 ; 4578 CLR_MBUS; 
7440 ; 4579 PAT = ONE; 'GENERATE EVEN PARITY BY SETTING THE PAT BIT 
el ; 4300 MLDA = .TST_PAT; ‘WRITE BAD PARITY ON CONTROL BUS 
7442 ; 4 
74643 ; 4582 if .CPAR IS_NOT_SET 'READ CPAR BIT SET 
7446 ; 4583 then 
7445 ; 4584 peain 
7446 ; 4585 ERRDF (7, ASYNC, 0); ‘ERROR IF NOT SET 
7447 ; 4586 PRINTB (THR _FMT, WRD_5, WRD_7, WRD_9); 
7448 ; 4587 end; 
: 4588 
7450 ; 4589 CLR_MBUS; 'CLEAR OUT PAT BIT 
7451 ; 4590 MLDA = .TST_PAT; ‘WRITE ODD PARITY CONTROL BUS 


E 14 
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CZMLAAO ML-11 LOGIC T 

HARDWARD TEST SECTION SEQ 0173 
7453 :ML4 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) ; 
ee ; 22-0¢t-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (51) 
7456 ; 4591 

| 2657: 4592 if .CPAR IS_SET ‘READ CPAR BIT CLEARED 

7458 ; 4593 then 

—- 7459 4594 begin 

| 7460 : 4595 ERRDF (8, ASYNC, 0); ‘ERROR IF SET 

| 76461 ; 4596 PRINTB (THR_FMT, WRD_6, WRD_7, WRD_9); 

7462 ; 4597 end; 

| 7463 ; 4598 

| 7464 ; 4599 CLR_MBUS; 
7465 ; 4600 SAVE = .MLDA; 'READ A REGISTER FROM DUT 
7466 ; 4601 
7467 ; 4602 if .MCPE IS_SET 'SEE IF GENERATED GOOD PARITY 
7468 ; 4603 then 
7469 ; 4604 peg ie 
7470 : 4605 ERRDF (9, ASYNC, 0); ‘ERROR IF MCPE IS_SET 
7471 : 4606 PRINTB (THR_FMT, WRD_6, WRD_7, WRD_8); 
7472 ; 4607 end; 
7473 ; 4608 
7474 : 4609 TST_PAT = .TST_PAT*ONE; ‘REPEAT WITH SHIFTED DATA 
7475 ;: 4610 end; 
7476 : 4611 
7477 ; 4612 end 

7478 ; 4613 else 
479 : 4614 PRINTB (TWO_FMT, WRD_7, WRD_53); ‘JUST PRINT MESSAGE IF PARITY IS DISABLED 
& ; 
oy 44 : 4616 ENDTST; 
7489 025426 004167 156370 $18: JSR R1,$SAVE3 : 4537 
7490 925432 005767 162672 TST PAR.DIS z 4571 
7491 025436 001171 BNE S$ 
7492 025440 012701 125252 MOV #-52526,R1 : *,TST.PAT 4574 
7493 025444 012702 000001 MOV #1,R > *, TWICE 4576 
7494 025450 152777 000040 164262 1$: BISB  #40,aML.REG+40 : 4577 
7495 025456 016700 164506 MOV ML.DUT,RO 
7496 025462 042700 177770 BIC #177770,R0 
7497 025466 142777 000007 164244 BICB =—s_« #7, ML .REG+40 
7498 025474 150077 164240 BISB RO,a@ML.REG+40 
74 25500 152777 000020 164232 BISB #20,aML.REG+40 : 4579 - 
7500 025506 010177 164216 MOV R1,aML .REG+30 > TST.PAT,* 4580 

| 7501 025512 132777 000010 164240 BITB #10,aML.REG+60 : 4582 
7502 025520 001022 BNE 2$ 
7503 025522 104455 TRAP 55 : 4585 
7504 025524 000007 .WORD 7 
7505 025526 007444 .WORD  ASYNC 
7506 025530 000000 .WORD 0 


CZMLAAO ML=11 LOGIC TEST 


HARDWARD TEST SECTION 


fofoflofeflofoloflol@~) 
rmrrrrrvrrrw 
PAA 
PPPS SISSIT 
PADIS nw 
ANMNOSOMAEWATN 


7520 025574 


7562 026016 


o-OOCooCoOoOeo 


oo—-' Ss Ss SS 
ML Oorrrrr 
Ns ™N 

= 

o 


152777 


003614 


005726 
000004 


000012 
000040 


6 
000010 


005726 


000004 


000012 


6 
020000 


005712 


000004 
000012 


000002 
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7ML4 


164144 2%: 


164126 


164130 


164034 3%: 


164016 


163740: 


4$: 


55 

10 
ASYNC 
0 


#WRD.9,-(SP) 
#WRD.7,-(SP) 
#WRD.6,-(SP) 
#THR.FMT,-(SP) 
#4,-(SP) 

14 

#12,SP 

#40. aML.REG+40 
ML .DUT,RO 
#177770,R0 
#7,aML .REG+40 


0 
#WRD.8,-(SP) 
#WRD.7,-(SP) 
#WRD.6,-(SP) 
#THR.FMT,=-(SP) 
#4 ,-(SP) 

RO 


SEQ 0174 


SP,* 


TST.PAT,* 


+ SP? 


* , SAVE 


SP,* 


TST.PAT 
TWICE 
TWICE,* 


TOPS 
PA:< 


4586 


CZMLAAO ML=11 L 
HARDWARD TEST S 


026066 


mo 


004767 


000207 


4617 
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006426 


000003 


000010 


177346 


! <BLF /PAGE> 


MLS 


5$: MOV 


; Routine Size: 
; Maximum stack 


T8:: 

1$: JSR 
TRAP 
ROR 
BLO 
RTS 


; Routine Size: 


; Maximum stack depth per invocation: 


PC 
#WRD.53,=(SP) 
#WRD.7,-(SP) 
#TWO.FMT,=-(SP) 


139 words 


depth per invocation: 


6 words 


9 words 


0 words 


° SP,* 


22-0 
22-0 


ct-1980 
ct-1980 


10: 
10 


SEQ 0175 


47:44 


7:45:32 


TOPS 
PA:< 


4571 
4614 


4537 


4614 
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CZMLAAO ML=11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 188 
HARDWARD TEST SECTION SEQ 0176 


7609 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
7610 ; 22-0ct=-1980 10:45:32 PA: <NEALE>BL2ML4.BLI.2 (52) 
7611 
7612 : 4618 ! 
7613 : 4619 | 
| 7616 ; 4620 BGNTST; 
| 7615 ; 4621 
| 7616; 4622 ‘+4 
| rel ; 4625 TEST NUMBER: TST 9 
| 7619 : 4625 | TEST NAME: | MEMORY SIZING TEST 
| 26at ; 462? : TEST DESCRIPTION: 
| 7693: 4629! THIS TESTS THE ML11°S SIZING 
| 7624 ; 4630! LOGIC BY COMPARING THE 
| 7625 : 4631! OPERATORS INPUTED NUMBER OF ARRAYS 
7626 ; 4632! PRESENT TO THE ML11 SIZING 
| 7627 ; 4633! NUMBER OF ARRAYS PRESENT 
7628 ; 4634! THE DRIVE IS DROPPED ON DETECTED ERRORS. 
7629 ; 4635 | IMPLICIT INPUTS: 
7631 : 4637 | OP_NUM_ARR: 
7632 ; 4638! LOADED DURING INIT CODE AND 
7633 ; 4639 | STORES OPERATORS INPUT TO THE 
7634 ; 4640 ! SOF TWARE QUESTION: 
7635 ; 4641 : NUMBER OF ARRAYS PRESENT? 
636 ; 4 
7637 : 4643! 
7638 ; 4644 ‘< 
7639 : 4645 
7640 ; 4646 local 
ron ; 6667 DODU_FLG; ‘DROP UNIT FLAG 
642 ; 
7643 : 4649 BGNSUB; 
7644 ; 4650 CLR_MBUS; 
ee 2 ei) DODU_FLG = ZERO; 
roa? : 4653 if (.OP_NUM_ARR + 1) neq .ML_NUM_ARR iSEE IF DRIVE SIZED SAME NO. OF ARRAYS &S UP INPUTED 
° then 
7649 ; 4655 be 
7650 : 4656 ir (10, ASYNC, 0); ‘IF NOT EQL THEN ERROR AND SET DODU_FLG 
7651 ; 4657 PRINTB (TWO_FMT, FNC_1, WRD_14); 
7652 ; 4658 PRINTB (FMT~2, (.OP_NUM_ARR~+ 1), .ML_NUM_ARR); 
A 3 re B44 poe. FLG = ONE; 
Py en 
7655 ;: 4661 
HGS +0) Eh cet 
| 7658 : 4664 if .DODU_FLG 1S_SET ‘DROP THIS UNIT IF DODU_FLG iS_SET 
Py then 
7660 ; 4666 oe 
eee aaa 
| 7668 : 4669 end: | 


1 14 
EST MACRO M1113 23-OCT-80 09:11 PAGE 189 


CZMLAAO ML=-11 LOGIC T 
ON SEQ 0177 


IC 
HARDWARD TEST SECTI 


7665 :ML4 22-0ct-1980 10:47:44.  TOPS=20 Bliss-16 V2(206) 
pees ; 22-0ct=-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (52) 
7668 ; 4670 
ree? : 4671 ENDTST; 
| 7677 026070 004167 155726 $19: JSR R1,$SAVE3 : 4616 
| 7678 026074 104402 : TRAP =. 2 : 4647 
| 7679 026076 152777 900040 163634 BISB #40,aML.REG+40 : 4649 
7680 026106 016701 164060 MOV ML.DUT,R1 
| 7681 026110 042701 177770 BIC #177770, R1 
7682 026114 142777 000007 163616 BICB =—ss #7, @ML..REG+40 ‘ 
| 7683 026122 150177 163612 BISB RT AML .REG+40 
7684 026126 005002 CLR R2 : DODU.FLG 4651 
| 7685 026130 016701 162166 MOV OP .NUM.ARR,R1 : 4653 
7686 026134 005201 INC R1 
7687 026136 017703 163656 MOV QML .REG*+120,R3 
7688 026142 006203 ASR R3 
7689 026144 006203 ASR R3 
7690 026146 006203 ASR R3 
7691 026150 000303 SWAB RB 
7692 026152 042703 177740 BIC #177740,R3 
7693 026156 010100 MOV R1,R0 
| 7694 026160 020003 CMP RO,R3 
7695 026162 001444 BEQ 2$ 
7696 026164 104455 TRAP = 55 : 4656 
7697 026166 000012 .WORD 12 
7698 026170 007444 .WORD ASYNC 
7699 026172 000000 “WORD 0 
7700 026174 012746 005774 MOV #WRD.14,-(SP) : 4657 
7701 026200 012746 006752 MOV #FNC.1,-(SP) 
7702 026204 012746 005356 MOV #TWO.FMT,-(SP) 
7703 026210 012746 000003 MOV #3,-(SP) 
7704 026214 010600 MOV SP,RO : SP, 
7705 026216 104414 TRAP. 14 
7706 026220 017703 163574 MOV QML .REG+120,R3 ; 4658 
7707 026224 006203 ASR R3 
7708 26 006203 ASR R3 
7709 026230 006203 ASR R3 
7710 026232 000303 SWAB RB. 
7711 026234 042703 177740 BIC #177740,R3 
7712 026240 010316 MOV R3, (SP) 
7713 026242 016746. 162054 MOV OP .NUM.ARR,-(SP) 
7714 026246 005216 INC (SP) 
7715 026250 012746 004224 MOV #FMT.2,-(SP) 
7716 026254 012746 000003 MOV #3,-(SP) 
7717 026260 010600 MOV SP,RO : SP,* 
| 7718 026262 104414 TRAP 14 
| 


CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 


026316 


026320 


026332 


104444 
000207 


004767 


000207 


' 4672 


114 
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000001 
000016 


163654 


177544 


' <BLF /PAGE> 


3ML4 


2$: 


3$: 


: Routine Size: 


MOV #1,R2 
ADD #16,SP 
TRAP 67 

ROR RO 

BLO 1$ 

DEC R2 

BNE 3$ 

MOV ML.LUN,RO 
TRAP 51 
TRAP 44 

RTS PC 


76 words 


; Maximum stack depth per 


i$: 


; Routine Size: 


i 


“| 
JSR 4o0 $19 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 
6 words 


; Maximum stack depth per 


invocation: 


invocation: 


11 words 


0 words 


* ,DODU.FLG 


; DODU.FLG 


22-0ct-1980 1 
22-0ct-1980 1 


oo 


£47 ll 
7:45:32 


SEQ 0178 


4669 


CZMLAAO ML-11 LOGIC TEST 


‘HARDWARD TEST SECTION 


7767 ;ML4 

7768 ; 

7769 

7770 ; 4673 
7771 ; 4674 
7772 ; 4675 
7773; 4676 
7774 ; 4677 
7775 ; 4678 
7776 ; 4679 
7777 ; 4680 
7778 ;SW 4681 
7779 ; 4682 
7780 ; 4683 
7781 ; 4684 
7782 ; 4685 
7783 ; 4686 
7784 ; 4687 
7785 ; 4688 
7786 ; 4689 
7787 ; 4690 
7788 ; - 4691 
7789 ; 4692 
7790 ; 4693 
7791 ; 4694 
7792 ; 4695 
7793 ;: 4696 
7794 ;: 4697 
7795 ; 4698 
7796 ; 4699 
7797 ; 4700 
7798 ;: 4701 
7/99 ; 4702 
7800 ; 4703 
7801 ; 4704 
7802 ; 4705 
7803 ; 4706 
7804 ; 4707 
7805 ; 4708 
7806 ; 4709 
7807 ; 4710 
7808 ; 4711 
7809 ; 4712 
7810 ; 4713 
7811 ; 4714 
7812 ;: 4715 
7813 ; 4716 
7814 ; 4717 
7815 ; 4718 
7816 ; 4719 
7817 ; 4720 
7818 ; 4721 
7819 ; 4722 
7820 ; 4723 
7821 ; 4724 


MACRO M1113 23-0CT-80 09:11 


BGNTST; 


+e 
TEST NUMBER: 
TEST NAME: 


TST 10 
NO-OP FUNCTION TEST 


TEST DESCRIPTION: 


TEST IF 
A NO_OP 
HANGING 


INTO M 
THEN 60 
CHECKED 


THE DRIVE CAN PERFORM 
FUNCTION WITH ~” 
THE DRIVE. 


PF pm IS WRITTEN 


AND ERROR BITS ARE 
FOR CORRECT STATES. 


THIS UNIT IS DROPPED ON DETECTED 
ERRORS. 


IMPLICIT INPUTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
| A NO -oP 
i 
i 
i 
i 
i 
i 
i 
i 
in 


ocal 
DODU_FLG; 


BENSUB: 

CLR_MB 

poo0 ha = ZERO; 
MLCST = NOOP; 
DELAY (ONE _US); 


PRINTB (FIV te WRD_ i. 


if .GO IS_SET 
then 
ty Ci, 
DODU_FLG = 
end; 


if .ILF IS_SET 
then 


peg in 
ERRDF (12, ASYNC, 
PRINTB (FIV soph 


DODU_FLG = 
end; 


NONE 


ASYNC, 0); 
PHR_2, WRD_11, 


0); 
WRD'3, PHR_5S, WRD_11, 


K 14 
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SEQ 0179 


TOPS=20 Bliss=16 v2(206) 
PA:<NEALE>BL2ML4.BL1.2 (53) 


!DROP UNIT FLAG 


'DO A NOOP FUNCTION 
!DELAY 1 US 


'SEE IF GO STILL SET 


‘ERROR AND SET DODU_FLG IF STILL SET 
FNC_2, WRD_19); 


'SEE ILF SET 


'ERROR AND SET DODU_FLG IF SET 
FNC_2, WRD_19); 


CZMLAAO ML-11 LOGI 
HARDWARD TEST SECT 


7823 ;ML4 
7824 ; 


“ ~ 
@ oo 
= Ww 
or uw 
Se Se Be Be Se Se Be Be Se Se Se Bs Se Be Be Se Se Be He 


7852 026324 


78 6444 
7875 026446 
7876 926450 


Cc 1 
10N 


000000 


EST 
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SEQ 0180 
, 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (53) 
if .OP1 IS_SET 'SEE IF CPI SET 
then 
pear (13, ASYNC, 0); ‘ERROR AND SET DODU_FLG IF SET 
PRINTB (FIV_FMT, WRD_. 4, PHR_5, WRD_11, FNC_2, WRD_19); 
DODU_FLG = ONE; 
end; 
ENDSUB; ; 
if .DODU_FLG IS_SET ‘DROP THIS UNIT IF DODU_FLG IS_SET 
then ; 
ot hp | 
DODU (.ML_LUN); , 
DOCLN; 
end; 
ENDTST; 
155446 $110: JSR R1,$SAVE2 : ° 4671 
TST -(SP) 
1$: TRAP 2 : 4702 
000040 163366 BISB #40,aML.REG+40 : 4704 
163612 MOV ML.DUT,R1 
177770 BIC #177776,R1 
000007 163350 BICB #7,AML.REG+40 
163344 BISB R1,aML.REG+40 i 
CLR R2 : DODU.FLG 4706 
000001 163274 MOV #1,aML.REG : 4707 
000001 MOV #1,R0 > *, S$TMP2 4708 
2$: BEQ 5$ 
153500 MOV LSDLY,R1 7 *,SSTMP1 
BEQ 4$ 
3$: CLR (SP) : $$TMP 
DEC R1 > $$TMP1 
BNE 3$ 
4$: DEC RO : $$TMP2 
BR 2$ 
000001 163240 5$: BITB #1,aML.REG e4 4710 
BEQ 6$ 
TRAP 55 : 4713 
.WORD 13 
WORD ASYNC 
.WORD 0 


f 


| 


CZMLAAO ML-11 
—s TEST 


7932 026720 


LOG 
SEC 


IC TEST 
TI 


forrrrreoror 


Te ee ee 
LOonnn 
os 


104451 


006040 


000006 


000001 
000016 
000001 


006040 


000006 


000001 
000016 
020000 


006040 


000006 


000001 
000016 


163246 


Maen Shin! RI 
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iML4 


163230 68: 


163140 7$: 


8$: 


#WRD.19,-(SP) 


#FIVIEMT,-(SP) 


#6,-(SP) 
14° 
#1,R2 
#16,S° 


#1,aML.REG+60 
7$ 


55 

Va 
ASYNC 
0 


#WRD.19,-(SP) 


#FIV. LFMT, -(SP) 


#6,-(SP) 
SP, 

14 
#1,R2 


#16,SP 
+ ear ty eitaletoe 


55 
15 
ASYNC 


0 
#WRD.19,-(SP) 


#FIV. “EMT, - (SP) 


#6,-(SP) 
SP RO 
14 
#1,R2. 
#16,SP 
6 


M14 
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5 oP ,* 


; *,DODU.FLG ’ 


3; + .* 
; *,DODU.FLG 


3; SP. 
; *,DODU.FLG 


:* DODU.FLG 


7 
o 


SEQ 0181 


TOPS 
PA:< 


4714 


CZMLAAO ML=11 L 
|HARDWARD TEST S 


026722 
02 


6724 
7939 026726 
40 


026730 


0 
000207 


004767 
6 


000207 


4744 
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177400 


! <BLF /PAGE> 


>ML4 
TRAP ao 
9$: TST (SP)+ 
RTS PC 


; Routine Size: 126 words 


; Maximum stack depth per invocation: 


T10:: 
1$: JSR PC,$T10 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 


; koutine Size: 6 words 


; Maximum stack depth per invocation: 


11° words 


0 words 


22-Oct-19 
22-Oct-19 


80 1 
80 1 


oo 


247: 
4 


SEQ 0182 
7:44 TOPS. 
5:32 PA:< 

4671 
4741 


pot ae a ———— - — ee 


B15 
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'HARDWARD TEST SECTION 
7973 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) | 
jade ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (54) 
7976 ; 4745! 


4746 | 
4747 BGNTST; 


| 
| 
7980 ; 4749 !4¢4 
7981 ; 4750 ! TEST NUMBER: TST 11 
7982 ; 4751 | 
7983 ; 4752 TEST NAME: WRITE CHECK FUNCTION TEST 
: ! TEST DESCRIPTION: 
; i 
i i 
‘ i 
~ i 
- i 
: i 
. i 
4 i 
: i 
| i 
: i 
2 i 
: i 
; i 
: i 
hes 


TEST IF THE DRIVE CAN PERFORM 
A WRITE CHECK FUNGTION WITHOUT 
HANGING THE DRIVE$ 


ea FUNCTION IS WRITTEN 
THEN GO AND ERROR BITS ARE 
CHECKED FOR CORRECT STATES 


THIS UNIT IS DROPPED ON DETECTED 
ERRORS. 


IMPLICIT INPUTS: NONE 


4773 local 
4774 DODU_FLG; ‘DROP UNIT FLAG 


4776 BGNSUB: 

4777 CLR_MBUS; 

4778 5OD0 FLG = ZERO; 

4779 FIRST_BLK_XFER 0; ‘SET UP A FIRST BLK XFERR 
4780 MLCS1 = WRT_CHK; 'DO A WRITE CHECK FUNCTION 


4782 if .GO IS_NOT_SET 'SEE IF THE GO BIT GOT SET 
4783 then 


4785 BARE (16, ASYNC, 0); ‘ERROR IF NOT SET 
4786 PRINTB (FIV_FMT, WRD.1, PHR_1, WRD_12, FNC_4, WRD_19); 


4788 et -DRY IS_NOT_SET 'SEE IF THE DRY IS SET WHILE GO IS CLEARED 
t 
4791 PRRF (15, ASYNC, 0); oe IF CLEARED 
re —— (Fiv_ FMT, WRD. _2, PHR_1, WRD_43, WRD_1, PHR_6); 
end; 


4795 DODU_FLG = ONE; 'SET DODU_FLG 
end 


SEQ 0183 


cro 


CZMLAAO ML-11 LOG 
'HARDWARD TEST SEC 


| 
| 


7ML4 


Be Oe Be Be Be Se Be Be Be Se Se Se Fe Be Be Be Be Be Ge Fe Fe Ge Se FH Ge Be Ge Ge Be Ge Ge Fe Ge FH Ge Ge Ge Be Ge Fe Ge FH Ge Ge Ge Se He Se Ge FH Se Se 


l 
T 


C TEST 
10N 


¢ 15 
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22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206). 
22-0¢t-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (54) 
else 
if .DRY IS_SET 'THE GO IS SET SO SEE IF DRY IS CLEARED 
then 
Hy (16, ASYNC, 0); Se eg IF LRY IS SET 
PRINTB (Fiv FMT, WRD_ 2, PHR_2, WRD_43, WRD_1, PHR_5); 
DODU_FLG = ONE; 
end; 
cial ~ILF IS SET ‘SEE IF LF TS SET 
ps (17, ASYNC, 0); ‘ERROR IF SET 
PRINIS (FIV FMT, WRD_ 3, PHR_5, WRD_12, FNC_4, WRD_19); 
DODU_FLG = ONE; 
end; 
if .OPI IS_SET 'SEE IF OPI IS SET 
then 
pea’? 
ERRDF (18, ASYNC, 0); ‘ERROR IF SET 


PRINTB (FIV_FMT, WRD_4, PHR_S, WRD_12, FNC_4, WRD_19); 
DODU_FLG = ONE; 


end; 
DELAY (FRTY_US); 'WAIT FO XFERR TO COMPLTE 
if .DRY IS_NOT_SET 'SEE IF DRY IS SETS AFTER XFERR 
then 
begin 
if .GO IS_SET ‘IF DRY IS NOT SET THEN SEE IF GO IS SET 
then 
begin 
CLR_MBUS; ‘IF THE GO IS SET THEN TRY TO CLR GO 
if .GO IS_SET then ERRDF (19, ASYNC, 0) else ERRDF (20, SYNC, 0): 
'IF GO IS STILL SET THEN ASYNC FAILURE 
oo (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_4, WRD_19)> ‘ELSE SYNC MODLE FAILURE 
en 
else 
4 (21, ASYNC, 0); ‘ERROR GO AND DRY BCTH CLEARED 
PRINTB (FIV. FMT, WRD_2, PHR_1, WRD_11, FNC_4, WRD_19); 
end; 
DODU_FLG = ONE; 'SET THE DODU_FLG 
end; 
if .GO IS_SET 'SEE IF THE GO IS STILL SET 


SEQ 0184 


D015 
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CZMLAAO ML-11 LOGIC T 
HARDWARD TEST SECTION SEQ 0185 
8085 :ML4 22-0¢t-1980 10:47:44 TOPS-20 Biiss-16 V2(206) 
8086 ; 22-Oct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (54) 
8088 ; 4849 then 
8089 : 4850 begin 
sont : ines CLR_MBUS; 'TRY TO CLR GO IF STILL SET 
| 8092 ; 4853 if .GO IS_SET then ERRDF (22, ASYNC, 0) else ERRDF (23, SYNC, 0); !IF GO IS STILL SET THE ASYNC FAILUR 
| g094 : 4855 PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_4, WRD_19); ‘ELSE SYNC MODULE FAILURE 
— ~=—« 8095 ; 4856 DODU_FLG = ONE; 
8096 ; 4857 end; 
| g097 ; 4858 
8098 : 4859 ENDSUB; 
8099 : 4860 
| 8100 ; 4861 if .DODU_FLG IS_SET ‘DROP THIS UNIT IF DODU_FLG IS_SET 
8101 ; 4862 then 
| = g102 : 4863 begin 
| 8103 ; 4864 DODU (.ML_LUN); 
8104 ; 4865 DOCLN; 
8105 ; 4866 end; 
8106 : 4867 
8107 : 4868 ENDTST; | 
8115 026744 004167 155036 $T11: JSR R1,$SAVE2 : 4743 
8116 026750 005746 TST -(§P) 
8117 026752 104402 1$: TRAP 2 : 4774 
8118 026754 152777 000040 162756 BISB #40,aML.REG+40 : 4776 
8119 026762 016701 163202 MOV ML.OUT,R1 
8120 026766 042701 177770 BIC #177776,R1 
8121 026772 142777 000007 162740 BICB = #7, AML. REG+40 
B122 027000 150177 162734 BISB = R11, @ML.REG+40 
8123 027004 005002 CLR R2 : DODU.FLG 4778 
8124 027006 004767 163506 JSR PC,FIRST.BLK.XFER : 4779 
8125 027012 012777 000051 162660 MOV #51,aML.REG : 4780 
8126 027020 132777 000001 162652 BITB #1,aML.REG ; 4782 
8127 027026 001057 BNE 2$ 
8128 027030 104455 TRAP 3s‘ 55 ; 4785 
8129 027032 000016 .WORD 16 ‘ 
8130 027034 007444 “WORD  ASYNC 
8131 027036 000000 “WORD 0 
8132 027040 012746 006040 MOV #WRD.19,-(SP) : 4786 
8133 027044 012746 007002 MOV #FNC.4,-(SP) 
8134 027050 012746 005760 MOV #WRD.12,-(SP) 
8135 027054 012746 006542 MOV #PHR.1,-(SP) 
8136 027060 012746 005630 MOV #WRD.1,-(SP) 
8137 027064 012746 005414 MOV #FIV.FAT,-(SP) 
8138 527070 012746 000006 MOV #6,-(SP) 


CZMLAAO ML-11 LOGIC T 
HARDWARD TEST SECTION 


0 
8172 027224 012746 
*173 027230 012746 
8174 027234 012746 
8175 027240 010600 
8176 027242 104414 
8177 027244 012702 
8178 027250 062706 
8179 027254 132777 
8180 027262 001430 
8181 027264 104455 
8182 027266 0000 
8183 027270 007444 
8184 027272 000000 
8185 027274 012746 
8186 027300 012746 
8187 027304 012746 
8188 027310 012746 
8189 027314 012746 
8190 027320 012746 
8191 027324 012746 
8192 027330 010600 

| 8193 027332 104414 

| 819% 027334 012702 


ES 


000200 


006660 


000006 


000016 
162556 


006646 


000006 


000001 
000016 
000001 


006040 


000006 


000001 


7ML4 


162642 


2$: 


3$: 
162476 4$: 


— 15 
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SP ,RO 


14 

#200,@ML .REG+50 
3$ 

55 

17 

ee 

#PHR .6,-(SP) 
#WRD.1,-(SP) 


#WRD.43,-(SP) 
#PHR.1,-(SP) 
#WRD.2,-(SP) 
#FIV.FMT,-(SP) 
#6,-(SP) 
14 
#16,SP 

6 


3 
anal 


#FIV.EMT,-(SP) 
#6,~-(SP) 

SP,RO 

14 

#1,R2 


#16,SP 

#1, QML .REG+60 
5$ 

55 


21 
ASYNC 


#WRO.19,-(SP) 


#6,-(SP) 
14° 
#1,R2 


. SP,* 


i; oP ,* 


; SP,* 
; *,DODU.FLG 


$ 3 .* 
; *, DODU.FLG 


SEQ 0186 


22-Oct-1980 10:47:44 
22-0¢t-1980 10:45:32 


TOPS 
PA:< 


4788 
4791 


4792 


4812 


CZMLAAO ML=11 L 
HARDWARD TEST S 


8 
8199 027340 


8247 027570 
8248 027574 
8249 027600 
8250 027604 


0G 
EC 


IC 1 
TION 


062706 
032777 


012746 


EST 


000016 
020000 


006040 


000006 


000001 
000016 
000050 


152450 


000200 
000001 
000040 


000001 


006040 


005630 


162406 5$: 


162260 
162200 
162230 


162212 
162140 


F 15 
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#16,SP 
#20000 ,aML .REG*60 


55 

22 
ASYNC 
0 


#WRD.19,-(SP) 
#FNC.4,-(SP) 
#WRD.12,-(SP) 
#PHR.5,-(SP) 
#WRD.4,-(SP) 
#FIV.EMT,-!SP) 
#6,-(SP) 


7$ 

+ 5 lama acl 
tate 

#40 ,aML.REG+40 
M R1 


#7,,aML .REG+40 
R1.aML.REG+40 
#1 QML REG 


#WRD.19,-(SP) 
#FNC.4,-(SP) 
#WRD.11,-(SP) 
#PHR.2,-(SP) 
#WRD.1.-(SP) 


SEQ 0187 


TOPS 
PA:< 


4809 
4815 


4818 


4819 


4825 
4829 
4831 


4834 


4837 


G 15 
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HARDWARD TEST SECTION SEQ 0188 
8252 SML4 22-0ct-1980 10:47:44 TOPS 
th ; 22-0ct-1980 10:45:32 PA:< 
8255 027610 012746 005414 MOV #FIV.EMT,-<(SP) 

8256 027614 012746 000006 MOV #6,-(SP) 
8257 027620 010600 MOV SP,RO : SP, 
8258 027622 104414 TRAP 14 
8259 027624 000424 BR 14$ : 4829 
8260 027626 104455 13$: TRAP «55 : 4841 
8261 027630 000025 .WORD 25 . 
8262 027632 007444 “WORD  ASYNC 
8263 027634 000000 “WORD 0 
8264 027636 012746 006040 MOV #WRD.19,-(SP) : 4842 
8265 027642 012746 007002 MOV #FNC.4,-(SP) 
8266 027646 012746 005750 MOV #WRD.11,-(SP) 
8267 027652 012746 006542 MOV #PHR.1,-(SP) 
8268 027656 012746 005634 MOV #WRD.2,-(SP) 
8269 027562 012746 605414 MOV #FIV.FMT,-(SP) 
8270 027666 012746 000006 MOV #6,-(SP) 
8271 027672 010600 MOV SP RO : > SP, 
8272 027674 104414 TRAP 14 
8273 027676 012702 000001 14$: MOV #1,R2 : *,DODU.FLG 4845 
8274 027702 062706 000016 ADD #16,SP : 4827 
8275 027706 132777 000001 161764 15$: ®BITB  #1,aML.REG : 4848 
8276 027714 001455 BEQ 18$ 
8277 027716 152777 000060 162014 BISB #40,aML.REG+40 : 4850 
8278 027724 016701 162240 MOV ML.DUT,R1 
8279 027730 042701 177770 BIC #177770,R1 
8280 027734 142777 G00007 161776 BICB = #7, aML.REG+40 
8281 027742 150177 161772 BISB = R1,aML.REG+40 
8282 027746 132777 000001 161724 BITB #1. aML.REG : 4853 
8283 027754 001405 BEQ 16$ 
8284 027756 104455 TRAP 3-55 
8285 027760 000026 WORD 2 
8286 027762 007444 WORD  ASYNC 
8287 027764 000000 WORD 
8288 027766 000404 BR 17$ 
8289 027770 104455 168: TRAP =‘ 55 
8290 027772 000027 WORD 27 
8291 027774 007500 WORD SYNC 
8292 027776 000000 “WORD 0 

9 012746 006040 17$: MOV #WRD.19,-(SP) : 4855 
8294 030004 012746 007002 MOV #FNC.4,-(SP) 
8295 030010 012746 005750 MOV #WRD.11,-(SP) 
8276 030014 012746 006560 MOV #PHR.2,-(SP) 

030020 012746 005630 MOV #WRD.1,-(SP) 

8298 030024 012746 005414 MOV #FIV.FMT,-(SP) 
8299 030030 012746 000006 MOV #6,-(SP) 
8300 030034 010600 MOV SP,RO ; SP,* 
8301 030036 104414 TRAP —s_-‘'14 

302 030040 012702 000001 MOV #1,R2 > *,DODU.FLG 4856 


8304 030050 104467 18$: TRAP 67 : 4857 
30052 006000 ROR 


8 
8303 030044 062706 000016 ADD #16,SP : 4850 
8 RO 

8 30054 103002 BHIS 19% . . 


w 
o 
w 
oo 


CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 


oo 
Ww 
_ 
~ 
oOo 
Ww 
Oo 
Oo 
~ 
oa 


831 


£3 | 030100 


000207 


004767 


000207 


4869 


H 
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: Routine Size: 
; Maximum stack 


> Routine Size: 
3; Maximum stack 


303 words 


depth per invocation: 


6 words 


depth per invocation: 


SEQ 0189 


TOPS 
PA:< 


4861 
4864 


4743 


4866 


CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 


8352 ;ML4 


1 15 
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:47:44 TOPS-20 Bliss=16 V2(206) 
2:45:32 PA:<NEALE>BL2ML4.BLI.2 (55) 


1 
BGNTST; 
e+ 
TEST NUMBER: TST 12 
TEST NAME: WRITE FUNCTION TEST 


! 
i 
i 
i 
' TEST DESCRIPTION: 

TEST IF THE DRIVE CAN PERFORM A WRITE FUNCTION WITHOUT 
| HANGING THE DRIVE. 

i 

i 

_ 


A WRITE FUNCTION IS WRITTEN INTO MLCS1. THEN GO AND ERRCR BITS ARE 
CHECKED FOR CORRECT STATUS. THIS UNIT IS DROPPED ON DETECTED ERRORS. 


local 
DODU_FLG; 'DROP UNIT FLAG 
BGNSUB; 
CLR_MBUS; 
DODO_FLG = ZERO; 
FIRST _BLK_XFER ty; 'SET UP A FIRST BLOCK XFERR 
MLCS1 = write; 'DO A WRITE FUNCTION 
if .GO IS_NOT_SET 'SEE IF THE GO IS SET 
then 


beanie ‘ERROR IF NOT SET 
ERRDF (24, ASYNC, 0); 
PRINTB (FIV_FMT, WRD_1, PHR_1, WRD_12, FNC_5, WRD_19); 


if .DRY IS_NOT_SET 'SEE IF DRY SET WITH GO CLEAR 
then 


in 
PRADF (25, ASYKC, 0): 
PRINTB (FIV_FMI, WRD.2, PHR_1, WRD_43, WRD_1, PHR_6); 


end; 
ee = ONE; 'SET DODU_FLG 
en 
else 'GO IS SET DURING FUNCTION 
4 -DRY IS_SET 'SEE IF DRY CLEAR WITH GO SET 
then 
peane ‘ERROR IF SET: 
ERRDF (26, ASYNC, 0); 
PRINTB (FIV apf WRD_2, PHR_2, WRD_43, WRD_1, PHR_5); 
DODU_FLG = ‘ 
end; . 
if .ILF IS_SET 'DID FUNCTION CAUSE ILF 
then 


SEQ 0190 


% 


J 15 
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CZMLAAO ML=-11 LOGIC | 
HARDWARD TEST SECTION SEQ 0191 
8408 ;ML4 : 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
Bete ; 22-0. t-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (55) 
8411 ; 4922 po he. ‘ERROR IF YES 
8412 ; 4923 ERRDF (27, ASYNC, 0); 
8413 : 4924 PRINTB (FIV_FMT, WRD_3, PHR_S, WRD_12. FNC_S, WRD_19); 
B414 ; 4925 DODU_FLG = ONE; 
8415 ; 4926 end; 
8416 ; 4927 ; 
8417 ;: 4928 if .OPI IS_SET 'DID FUNCTION CAUSE OPI 
8418 ; 4929 —. 
8419 ; 4930 int he, 'ERROR IF YES 
8420 ; 4931 ERRDF (28, ASYNC, 0); 
8421 ; 4932 PRINTB (FIV_FMT, WRD_4, PHR_S, WRD_12, FNC_5, WRD_19); 
8422 ; 4933 DODU_FLG = ONE; 
8423 ; 4934 end; 
8424 ; 4935 
8425 ; 4936 DELAY (FRTY_US); 'WAIT FOR XFERR TO COMPLETE 
8426 ; 4937 
8427 ; 4938 if .DRY IS_NOT_SET 'SEE IF DRY CLEARED AFTER XFERR 
8428 ; 4939 then 
8429 ; 4940 begin 
8430 ;: 4941 
8431 ; 4942 if .GO IS_SET 'TST GO CLR IF DRY NOT SET 
8432 ; 4943 then 
8433 ; 4944 begin 
8434 ; 4945 CLR_MBUS; 'CLEAR GO IF STILL SET 
8435 ; 4946 
8436 ; 4947 if .GO IS_SET then ERRDF (29, ASYNC, 0) else ERRDF (30, SYNC, 0); 
8437 ; 4948 
8438 ; 4949 'TST GO TO DETERMINE FAILING MOD 
8439 ; 4950 ° PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_5, WRD_19); 
8440 ; 4951 end 
8441 ; 4952 else 'DRY NOT SET AND GO CLEARED 
8442 ; 4953 begin 'REPORT ERROR 
8443 ; 4954 ERRDF (31, ASYNC, 0); 
B444 ; 4955 PRINTB (FIV_FMT, WRD.2, PHR_1, WRD_11, FNC_5, WRD_19); 
B445 ; 4956 end; 
8446 ; 4957 
8447 ; 4958 DODU_FiLG = ONE; 'SET DODU_FLG 
8448 ; 4959 end; 
8449 ; 4960 
8450 ; 4961 if .GO IS_SET 'SEE IF GO CLEARED AFTER XFERR. 
8451 ; 4962 then 
8452 ;: 4963 begin 
B32 3 rest CLR_MBUS; 'CLEAR GO IF STILL SET 
HH : aac? if .GO IS_SET then ERRDF (32, ASYNC, 0) else ERRDF (33, SYNC, 0); 'TST GO TO DETERMINE FAILING MOD 
s 4 
8457 ; 4968 PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_5, WRD_19); 
8458 ; 4969 DODU_FLG = ONE; 
8459 ; 4970 end; 
8460 ; 4971 
8461 ; 4972 ENDSUB; 
8462 ; 4973 


CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 


8464 :ML4 
8465 ; 
8466 
8467 ; 4974 
8468 ; 4975 
| 8469 ; 4976 
8470 ; 4977 
| B47) | 4978 
8472 ; 4979 
8473 ; 4980 
8474 ; 4981 
8475 ; 4982 
8476 ; 4983 
. 8477 ;: 4984 
8478 ; 4985 
8479 ; 4986 
8480 ; 4987 
8481 ; 4988 
8482 ; 4989 
8486 
8490 030116 004167 


8491 030122 
8492 030124 104402 


30260 001056 


MACRO M1113 23-0CT-8 


if .TRE IS_SET 
then 


poate 
ERRDF (115, paens 


0); 
PRINTB (SIX_FM » WRD 61, 
DODU_FLG = ONE: 
end; 
if .DODU_FLG IS_SET 
then 
+1 hy 
DODU (.ML_LUN); 
DOCLN; 
end; 
ENDTST; 
153664 $T12: JSR 
TST 
1$: TRAP 
000040 161604 B1SB 
162030 MOY 
177770 BIC 
000007 161566 BICB 
161562 B1SB 
CLR 
162334 JSR 
000061 161506 MOV 
000001 161500 BITB 
BNE 
TRAP 
. WORD 
. WORD 
. WORD 
006040 MOV 
007020 MOV 
005760 MOV 
006542 MOV 
005630 MOV 
005414 MOV 
000006 MOV 
MOV 
TRAP 
000200 161470 BITB 
BNE 


K 15 
0 09:11 PAGE 204 
SEQ 0192 


22-Oct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
22-Oct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (55) 


'SEE IF XFERR CAUSED A TRANSFER ERROR 
'REPORT ERROR IF SET AND CONTINUE TESTING 
WRD_20, PHR_S, WRD_12, FNC_5, WRD_19); 


!DROP THIS UNIT IF DODU_FLG SET 


R1,$SAVE2 : 4868 
-(§P) 

2 ; 4887 
#40, ant gREG*40 : 4889 
rier" R1 


#7 ,AML .REG+40 
RI -aML .REG+40 


PC,FIRST.BLK.XFER 
#61,0ML.REG 


; DODU.FLG 4891 


J . >. . 
> 
@ 
0 
w 


#WRD.19,-(SP) : 4899 
#FNC.5,-(SP) : 

#WRD.12,-(SP) 

#PHR.1,-(SP) 

#WRD.1,-(SP) 

#FIV.FAT,-(SP) 

#6,-(SP) 

SP,RO s $? 4 


14 
 eeaecahames hase : 4901 


CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 


104455 


L 15 
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006660 


000006 


000016 
161404 2$: 


006646 


000006 


000001 3$: 


000016 
000001 161324 4$: 


006040 


000006 


000001 
000016 
020000 161234 5$: 


55 ; 
31 

ASYNC 

0 


#PHR.6,-(SP) 
#WRD.1,-(5P) 
#WRD.4$,-(SP) 
#PHR.1,-(SP) 
#WRD.2,-(SP) 
#FIV.FMT,-(SP) 
#6,-(SP) 

SP,RO ; 3% 
14 

#16,SP 

3 


$ 
QML .REG*+50 
4$ 


55 

32 
ASYNC 
0 


#PHR.5,-(SP) 


WF IV.FMT,-(SP) 
#6,-(SP) 

SP,RO . 
14 
#1,R2 
#16,SP 

#1,aML.REG+60 F 


SP,* 
* ,DODU.FLG 


SP.RO ; SP,* 
#1,R2 : *,DODU.FLG 
#16,SP ; 
#20000 ,aML .REG+60 

3 


22-0ct-19 
22-0ct-19 


0 10: 
0 10: 


SEQ 0193 


47:44 


7:45:32 


TOPS 
PA:< 


4904 


4905 


! 
'CZMLAAO ML=11 4 
'HARDWARD TEST $ 


| 8576 

| 8577 
8578 030530 
8579 030532 
8580 030534 
581 030536 


mo 


006040 


000006 


000001 
000016 
000050 


151276 


000200 
000001 
000040 


000001 


006040 


000006 


161106 
161026 
161056 


161040 
160766 


6$: 
7$: 


8$: 


9$: 
10$: 


~w 


11$: 


12$: 


34 
ASYNC 
0 


#WRD.19,-(SP) 
#FNC.5,-(SP) 
#WRD.12,-(SP) 
#PHR.5,-(SP) 
#WRD.4.-(SP) 
#EIV.FMT,-(SP) 
#6,-(SP) 


7$ 
#200, aML .REG+50 
#1 ,QML.REG 

13$ 

on OA eee 


R1.aML .REG+40 
#1 ,aML REG 


#WRD.1,- CSP) 
#FIV.FAT,~(SP) 
ore? 


’ 


14 


22-0¢t-198 
22-0ct-198 


SEQ 0194 


TOPS 
PA:< 


4932 


4947 


4950 


r 


CZMLAAO ML-11 LOGIC TEST 
‘HAR 


| 


cos 


DWARD TEST SECTION 


02 


—— 


WAU 


3 
pa 
ooo°oeo°0oo 
ee ee et ee et ae ee ee ed ed ed ad od ed ed 


WWW AIAN AN WWW 


oO 
CoQoQooCoooo°oc[eo 
MOVMAEAMANVOGA SNOALSNOOO FS 


RORY a et 
SSSNSSVSSSFTESEEESSSST 


EeERe 

SNe 

oo 
WNrNnNn——— 


NAA WA WWW 
Pry 
EURO LNANO 


eereree 
MEWN=OO 

SooCooooo°oo 
MPOMOPOPOMONOPOPONMINY 


104455 


N 15 
MACRO M1113 23-OCT-80 09:11 PAGE 207 


006040 


000006 


000001 14$: 
000016 

000001 160612 15$: 
000040 160642 


000007 160624 
000001 160552 


16$: 


006040 17$: 


000006 


000001 
000016 
18$: 


176670 
040000 160436 19$: 


14$ 
55 

37 
ASYNC 
0 


#WRD.19,=-(SP) 
WFNC.5,=(SP) 


#WRD.2,-(SP) 


#40,QML.REG+40 
ML.DUT,R1 
#177770,R1 
#7,,aML.REG+40 


R1,@ML.REG+40 
#1 ,QML.REG 


#WRD.1,-(SP) 
#FIV.EMT,-(SP) 
r+ Neal 


1 
#40000 ,aML .REG 
i: 


SEQ 0195 


; SP,* 
; *,DODU.FLG 


e's 
; *,DODU.FLG 


TOPS 
PA:< 


4942 
4954 


4955 


4966 


4968 


‘CZMLAAO ML-11 LOGIC TEST 


/HARDWARD TEST SECTION 


OO SNOUT ES 
SxoFS SrVvoenr 


AROK 


8710 031344 
8711 031346 
8712 


4 
8728 031350 


tet, 031362 


000207 


004767 


000207 


006040 


000007 


000001 
000020 


160626 


176542 


ae: ? B 16 
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208: 


21$: 


: Routine Size: 
; Maximum stack 


— 


12:2 

$: JSR 
TRAP 
ROR 
BLO 
RTS 


; Routine Size: 


; Maximum stack depth per invocation: 


163 

INTER 
#WRD.19,-(SP) 
#FNC.5,-(SP) 
#WRD.12,-(SP) 
#PHR.5,-(SP) 


#WRD.61,-(SP) 


#SIX.FMT,-(SP) 


#7,-(SP) 


333 words 


depth per invocation: 


6 words 


18 words 


0 words 


eo ec er en 


SP,* 
* ,DODU.FLG 
DIDU.FLG 


22-0 t-198 
22-0¢t-198 


0 10 
0 10: 


SEQ 0196 


247344 


45:32 


TOPS 
PA:< 


4978 


4987 


CZMLAAO ML=-11 LOGIC TEST 


HARDWARD TEST SECTION 


sML4 
8743 ; 


5011 


Co Co On CD CO 
5 SNS 
oe Set 
WM EWrN— 
Be Se Ba Be Be Be Be Be Oe Be Be Be Oe Be Be Be Be He Be Se Oe Se Be Be Oe Be Oe Se Oe Oe Be Oe Be Be He Be OH Oe Oe Oe Se Oe Se Se Se Oe SE Se Se Beers 
MIU 
oo o 
—-Cco°oceo 
o-OOno 


BGNT 
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ST; 


Test NUMBER: 
TEST NAME: 
TEST DESCRIPTION: 

TEST IF THE DRIVE CAN PERFORM 


IMPLICIT INPUTS: 


TST 13 
READ FUNCTION TEST 


A READ FUNCTION WITHOUT 
HANGING THE DRIVE. 


A READ FUNCTION IS WRITTEN 
INTO MLCS1 


THEN GO AND ERROR BITS ARE 


CHECKED FOR CORRECT STATES. 


C 16 
PAGE 209 


TOPS-20 Bliss-16 V2(206) 
PA: <NEALE>BL2ML4.BLI.2 (55) 


THIS UNIT IS DROPPED ON DETECTED 


ERRORS 
NONE 


ocal 
DODU_FLG; 
BGNSUB; 


CLR_MBU 


$3 


poD0_FLG = 
FIRST_BLK_XFER 0; 


MLCS 


1 = 


ZERO; 


read; 


it .GO IS_NOT_SET 


then 


4b 
ERRD 
PRIN 


4 
then 


DODU_ 


n 
F (34, ASYNC, 0); 
TB (FIV_FMT, WRD_1, 


.DRY 1S_NOT_SET 


PUR_1, 


in 
PREDE (35, ASYNC, 0): 


PRINTB (FIV_FMT, WRD.2, PHR_1, 


end; 


FLG = ONE; 


WRD_1 2 ° 


!DROP UNIT FLAG 


'SET UP A FIRST BLK XFERR 
'DO A READ FUNCTION 


'SEE IF GO GOT SET 
'ERROR IF CLEAR 
FNC_6, WRD_19); 
‘TST DRY SET WITH GO CLEAR 
‘ERROR IF NOT SET 
WRD_43, WRD_1, PHR_6): 


‘SET DODU_FLG 4 


SEQ 0197 


CZMLAAD ML=-11 4 
'HARDWARD TEST S 


sML4 


Be Be Be Be Be Be Be Be Fe Se Be Se Se Fe Be Be Ge Ge TH Be Be Ge FH Be SH Te Ge Ge Ge Ge SH Ge THESE He Be SH Ge FH He SH Se Se Ge Se Se GH Se GH Se Te Oe 


0G 
EC 


——o 


i 
TION 


TEST 


D 14 
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15:83 PRCeNEALESOLDMLG Belo (55) 
'GO BIT GOT SET 
‘SEE IF DRY IS CLEAR 
'ERROR IF SET 

“und 2, PHR_2, WRD_43, WRD_1, PHR_5); 


!DID FUNCTION CAUSE ILF 
'ERROR IF YES 


PRINTB (Fiv Eat WRD.3, PHR_5, WRD_12, FNC_5, WRD_19); 


end 
else 
if .DRY IS_SET 
then 
pean 
ERRDF (36, ASYNC 
PRINTB (FIV FMT, 
DODU_FLG = ONE; 
end; 
if .ILF IS_SET 
then 
ty (37, ASYNC, 0); 
DODU_FLG = 
end; 
if .OPI IS_SET 
then 


!DID FUNCTION CAUSE OPI 
'ERROR IF YES 


PRRDF (38, ASYNC, 0); 

PRINTB (FIV FAT, WRD_4, PHR_5, WRD_12, FNC_5, WRD_19); 
DOU. FLG = 

end; 


DELAY (FRTY_US); 
if .DRY IS_NOT_SET 
then 

begin 


if G0 1S_SET 


if .GO IS_SET then ERRDF (39, ASYNC, 0) else ERRDF (40, SYNC, 0); 


PRINTB (FIV_FMT, 


end 
else 


pt hey 
ERRDF (41, ASYNC, 9) 
PRINTB (FIV_FMT, 


end; 


DODU_FLG = ONE; 
end; 


. 


'WAIT FOR XFERR TO COMPLETE 
'I1S DRY SET AFTER XFERR 


‘TEST GO CLEAR WITH DRY NOT SET 


'CLEAR GO 


| 
'TST GO TC DETERMINE FAILING MOD 
WRD_1, PHR_2, WRD_11, FNC_5, WRD_19); 


'GO BIT CLEAR WITH DRY NOT SET 
'REPORT ERROR 


WRD/2, PHR_1, WRD_11, FNC_S, WRD_19); 


'SET DODU_FLG 


SEQ 0198 


E 16 
CZMLAAO ML=-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 211 
wae TEST SECTION 


| 4 ;ML4 22-Oct-1980 10:47:44 
j aeee : 22-0ct-1980 10:45:32 
. 
1.8857 ; 5094 if .GO IS_SET 'SEE IF GO CLEAR AFTER XFERR 
| 8858 ; 5095 then 
| 8859 ; 5096 begin 
8860 : 5097 CLR_MBUS; ‘CLEAR GO IF STILL SET 
8861 ; 5098 
a4] ; 344 if .GO IS_SET then ERRDF (42, ASYNC, 0) else ERRDF (43, SYNC, 0); 
8864 : 5101 PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_5, WRD_19); 
8865 ; 5102 DODU_FLG = ONE; 
B66 : 5103 end; 
8867 : 5104 
8868 : 5105 ENDSUB; 
8869 ; 5106 
8870 : 5107 if .TRE IS_SET 'SEE IF XFERR CAUSED A TRANSFER ERROR 
8871 : 5108 then 
8872 : 5109 begin 
8873 : 5110 ERRDF (116, INTER, 0); 
| «B74 5111 PRINTB (SIX_FMT, WRD_61, WRD_20, PHR_S, WRD_12, 
8875 ; $112 DODU_FLG = ONE; 
8876 ; 5113 end; 
8877 : 5114 
8878 : 5115 if .DODU_FLG IS_SET ‘DROP THIS UNIT IF DODU_FLG SET 
8879 ; 5116 then 
8880 ; 5117 — 
8881 ; 5118 DODU (.ML_LUN); 
8882 : 5119 DOCLN; 
8883 ;: 5120 end; 
8884 ; 5121 
8885 ; 5122 ENDTST; 
8889 
8593 031364 004167 152416 $113: JSR R1,$SAVE2 
8894 031370 005746 TST -(S§P) 
8895 031372 104402 ; 1$: TRAP 2 
8896 031374 152777 000040 160336 BISB #40,aML.REG+40 
97 031402 016701 160562 MOV ML.OUT,R1 
8898 031406 042701 177770 BIC #177776,R1 
2 142777 000007 160320 BICB #7, aML.REG+40 
8900 031420 150177 160314 BISB R1,aML.REG+40 
8901 031424 005002 CLR R2 
8902 031426 004767 161066 JSR PC FIRST BLK .XFER 
8903 031432 012777 000071 160240 MOV #71, aML.REG 
8904 031440 132777 000001 160232 BITB. av] {+ REG 
8905 031446 001057 BNE 2$ 
8906 031450 104455 TRAP = 555 
| 8907 031452 000042 .WORD 42 
; 8908 ML4 \ 
| 8909 ; 
910 
8911 031454 007444 WORD  ASYNC 
8912 031456 000000 “WORD 0 
8913 031460 012746 006040 MOV #WRD.19,-(SP) 
| 8914 031464 012746 007030 MOV #FNC.6,-(SP) 
|: 8915 031470 012746 005760 MOV #WRD 12,7 (SP) 
8916 031474 012746 006542 MOV #PHR.1,-(SP) 


TOPS=-20 Bliss-16 ree 
PA:<NEALE>BL2ML4.BLI 


!TST GO TO DETERMINE FAILING MOD 


‘REPORT ERROR IF SET AND CONTINUE TESTING 
FNC_6, WRD_19); 


CZMLAAO M 
HARDWARD 


co 
oO 
we) 
~ 
jafeleloeflelelelelelo) 
WAWWANWAWANAWW oe 
DAM AAD TIAMAT) = 
WWWWRN | = OOF 
AEMIOKCOALOLfO 


8949 031644 
8Y50 031650 


8962 031714 
8963 

8964 

8965 

8966 031720 
8967 031724 
8968 031730 
8969 031734 
8970 031740 
8971 031744 
8972 031750 
8973 031752 


46 


—OOooo°ooo 

Co ee eee 

SOornrrornror 

PPP PPT 
oa 


005630 
005414 
000006 


000200 


006660 


000006 


000016 
160136 


006646 


000006 


000001 
000016 
000001 


006040 


007020 


000006 


160222 


160056 


3$: 
4$: 
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#WRO.1,-(SP) 
#FIV.EMT,<(SP) 
#6,- (SP) 

SP ,RO 

14 


#200, QML .REG*+50 
3$ 


55 
43 
ASYNC 


0 
#PHR.6,-(SP) 
#WRD.1,-(SP) 
#WRD.43,-(SP) 
#PHR.1,-(SP) 
#WRD.2,-(SP) 
#FIV.FAT,-(SP) 
#6 ,~(SP) 

SP RO 

14 

#16,SP 


3 
QML .REG+50 


#PHR.S,-(SP) 
#WRD.1.-(SP) 
#WRD.43,-(SP) 
#PHR.2,-(SP) 
#WRD.2.-(SP) 
#FIV.FMT,-(SP) 
#6,-(SP) 

14 

#1,R2 


#16,SP 
#1,QML.REG+60 
5$ 

55 

45 

ASYNC 


0 
#WRD.19,-(SP) 


#FNC.5,-(SP) 
#WRD.12,-(SP) 
#PHR.S,-(SP) 
#WRO.3,-(SP) 
#FILV.FRT,-(SP) 
#6,-(SP) 

SP/RO , 

14 


SEQ 
; SP,* 
: S§P,* 
. SP,* 
; *,DODU.FLG 
22-Oct-1980 10:47:44 
22-Oct-1980 10:45:32 
: SP,* 


0200 


5034 
5037 


5038 


CZMLAAO ML-11 L 
HARDWARD TEST S$ 


074 
9000 032076 
9001 032100 
9002 032102 
9003 ReS145 


—— ss 


0 
c 


000404 


104455 


000001 
000016 
020000 


006040 


000006 


000001 
000016 
000050 


150030 


000200 
000001 
000040 


000001 


006040 


005414 


MACRO M1113 23-0CT-80 09:11 


157766 


157640 
157560 
157610 


157572 
157520 


5$: 


" sre, 

£20600, aML .REG*+60 
§ 

46 

ASYNC 

#WRD. \’. -(SP) 
#FNC.5 =(S§P) 
#WRD.12, =(SP) 
#PHR.5,-(SP) 


#WRD.4.~ (SP) 
MFIVIEMT,=(SP) 
#6,-(SP) 


7 

#200,0ML .REG+50 
15$ 

#1 ,QML.REG 

13$ 


#40, aML.REG+40 
ML.DUT,R1 
#177770,R1 

#7 ,AML.REG+4O 
R1. aM .REG*4O 
#1. aML.REG 


#WRD.19,-(SP) 


#EIV.FAT,=(SP) 


G 16 
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SEQ 0201 
: *,DODU.FLG 5098 
: 5061 
5064 
: 5065 
| .,* 


; *,DODU.FLG 
: *, $$IMP2 
; *,$STMP1 


$$ TMP 


; $SSTMP1 
3: SSTMP2 


22-Oct-1980 10:47:44 
22-Oct-1980 10:45:32 


5071 
5075 
5077 


5080 


TOPS 
PA:< 


5083 


QSOumuiu 


9072 032440 
9073 
9074 
9075 
9076 032444 
9077 032450 


9086 032502 
9087 032510 


001432 


000006 


006040 
005414 
000006 


000001 
000016 
000001 


000040 


000001 


006040 
005630 
005414 
000006 


000001 
000016 


176670 
040000 


13$: 


14$: 
157344 15$: 
157374 


157356 
157304 


16$: 


18$: 


157170 19%: 
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#6,-(SP) 
0 


#WRD.19,-(SP) 
#FNC.5,-(SP) 
#WRD.11,-(SP) 
#PHR.1,-(SP) 
#WRD.2,-(SP) 
#FIV.EMT,<(SP) 
#6,-(SP) 


#16,SP 
#1 ,aML.REG 
18$ 


#40,aML.REG+40 
ML.DUT,R1 
#177770,R1 
#7,QML.REG+40 
R1.aML.REG+40 
#1 aM .REG 


0 
#WRD.19,-(SP 
#FNC.5,-(SP) 


#PHR.2,-(SP) 
#WRD.1,-(SP) 


#FIV.FMT,-(SP) 
#6,-(S®) 

SP,RO 

14 


#40000, aML .REG 
20% 


SP,* 


SP,* 
* ,DODU.FLG 


SP,* 
* ,DODU.FLG 


SEQ 0202 


22-Oct-1980 10:47:44 
22-Oct-1980 10:45:32 


5075 
5087 


5088 


5099 


5101 


TOPS 
PA:< 


5102 
5096 
5103 


5107 


9135 032630 000207 RTS PC 


1 
CZMLAAO ML=-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 211-4 
HARDWARD TEST SECTION SEQ 0203 

9088 032512 104455 TRAP ss 55 : 5110 
9089 032514 000164 .WORD 164 
9090 032516 007622 .WORD INTER 
9091 032520 000000 WORD 
9092 032522 012746 006040 MOV #WRD.19,-(SP) : 5111 

——-- 9093 032526 012746 007030 MOV #FNC.6,-(SP) 
9094 032532 012746 005760 MOV #WRD.12,-(SP) 

9095 032536 012746 006646 MOV #PHR.5,-(SP) 

/ 9096 032542 012746 006046 MOV #WRD.20,-(SP) 

| 9097 032546 012746 006526 MOV #WRd.61,-(SP) 

9098 032552 012746 005432 MOV #SIX.FMT,-<SP) 

9 032556 012746 000007 MOV #7,-(SP) 

| 9160 032£62 010600 MOV SP,RO ; SP,* 

| = 9101 032564 104414 TRAP 14 

| 9102 032566 012702 000001 MOV #1,R2 : *,DODU.FLG $112 
9103 032572 062706 000020 ADD #20,SP ; 5109 
9104 032576 005302 208: DEC R2 > DODU.FLG 5115 
9105 032600 001004 BNE 21$ 
9106 032602 016700 157360 MOV ML.LUN,RO : 5118 
9107 032606 104451 TRAP ‘1 
9108 032610 104444 TRAP 44 
9109 032612 005726 21$: TST (SP)+ : 4989 
9110 032614 000207 RTS PC | 
9112 : Routine Size: 333 words. 
abt ; Maximum stack depth per invocation: 18 words 
9119 
9123 : 
9127 3ML4 22-0ct-1980 10:47:44 TOPS 
9128 : 22-Oct-1980 10:45:32 PA:< 
9129 
9130 032616 T13:: 
9131 032616 004767 176542 1$: JSR PC,$113 ; 5120 
9132 032622 104466 TRAP —- 66 
9133 032624 006000 ROR RO 
9134 032626 103773 BLO 1$ 

| 

| 


CZMLAAQ ML-11 ” ta 


J. 16 
C TEST MACRO M1113 23-OCT-80 09:11. PAGE 212 
WARDWARD TEST SECTI 


TION SEQ 0206 


9141 5ML4 22- 7:44 TOPS=20 Bliss-16 V2(206) 
9142 ; 22 5:32 PA:<NEALE>BL2ML4.BLI.2 (56) 


i 


TEST NUMBER: TST 14 
TEST NAME: CLEAR FUNCTION TEST 


TEST DESCRIPTION: - 
TEST IF THE DRIVE CAN PERFORM A CLEAR FUNCTION WITHOUT HANGING THE DRIVE. 


A CLEAR FUNCTION IS WRITTEN INTO MLCS1. 


THEN GO AND ERROR BITS ARE CHECKED FOR CORRECT STATUS. 
THIS DRIVE IS DROPPED ON DETECTED ERRORS. 


oO 
_ 
uw 
oO 


0 
— 
GN 
™N 
Be Be Be Be Be Be Be Be Be Be Be Be Se Be Se Be Se Fe Se Be Se Fe Ge Fe Be Ge Ge Se Ge Ge Be Se Fe Ge Ge Se Ge Se Se . . . . . . . . . . . . . 


local 
DODU_FLG; 'DROP UNIT FLAG 


BGNSUB; 
BUS; 
DODO_FLG = ZERO; 
MLER™= ONES; 'SET BITS IN ERROR REGISTER 
MLCS1 = DRV_CLR; 'DO A CLEAR FUNCTION 
DELAY (ONE_OS); ‘DELAY 
ie .GO 1S_SET 'SEE IF GO CLEARED AFTER FUNCTION 
t 
begin ‘ERROR IF SET 
ERRDF (44, ASYNC, 0); 
PRINTB (FIV_FMT, WRD.1, PHR_5, WRD_11, FNC_3, FNC_7, WRD_19); 
if .DRY IS_SET 'TST DRY CLEAR WITH GO SET 
then 


poate 'ERROR IF SET 
ERRDF (45, ASYNC, 0); 
PRINTB (FIV_FMT, WRD_2, PHR_S, WRD_45, WRD_1, PHR_5); 


end; 
aw = ONE; 'SET DODU_FLG 
en 
else 'GO CLEARED AFTER FUNCTION 
a -DRY IS_NOT_SET ‘TST DRY SET WITH GO CLEAR 
then 
pt he ‘ERROR IF NOT SET 
ERRDF (46, ASYNC, 0); 
PRINTB (Fiv ie; WRD_2, PHR_1, WRD_43, WRD_1, PHR_6); 


DODU_FLG = 
end; 


ware Leal eal esl eal Mel Mek sh Mak sh sk een ah sh ak eh ak ah ah eh A ek A ek ek ek ek ek a a ek a he ek ek ek ed ek elk ek sl ak el ead shed ak ala! 
ee cet el ce cee ce ce cet ce ce ce ce ceed ce cet ee ce cee ce cD cee a ce ce ce ce ce ee ce ce cD ce cc ee ce ce ce ce DD ee ce ce ae ed ed ed ced od ee 


SN NNN NA AAAAAAAAAA NANA NN BS BL RE EE BE BWA NWNNWNN op fre nofne 
MEW 0 OO NO UF WR | CO OD NAM FWD — CO OD NA UNE WWNM —$ OC OONAUEF WN —-OVDONOUS 


CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 


9197 ;ML4 
9198 ; 


Oo 
™m 
— 
oa 
Oe Oe Be Oe Be Oe BH He Oe Be Oe Be Os Se Oe TH Be Oe Be Be Oe BH Oe BH SH Be Os Se Be SH Hs OH oe 


~o 
~ 
Ww 
Nw 
. 


9241 032632 


92 2660 
9248 032666 
9249 032672 
9250 032674 


COOCSCOCOOOOWOO ODO OBDWDOWDODOWOOOYNAN~ 
WHS ODNOAUWVEWN CO ODNAUE WN -OOOND 


012777 


if .ILF 
then 


MACRO M1113 


IS_SET 


PARE (47, ASYNC, 0); 
PRINTB (FIV FMT, WRD_3, PHR_S, WRD_12, FNC_3, FNC_7, WRD_19); 
DODU_FLG = 


end; 


if .OP! 
then 


IS_SET 


23-0CT 


PRRDF (48, ASYNC, 0); 
PRINTB (FIV inf 
DODU_FLG = 


end; 


if .MLER neq ZERO 


begin 
ERRDF (49, ASYNC, 
PRINTB (SIX. FMT, 


then 


end; 
ENDSUB; 


if .DODU_FLG IS_SET 
then 


begin 
DODU (.ML_LUN); 


DOCL 


end; 
ENDTST; 
151150 


900060 
; 
000007 


157046 
177777 


157070 


157052 


157056 


$114: 


WRD_4, 


0); 
FNC_3, 


K 16 
-80 09:11 PAGE 213 


4 TOPS=20 Bliss-16 V2(206) 

2 PA:<NEALE>BL2ML4.BLI.2 (56) 
'DID FUNCTION CAUSE ILF 

'ERROR IF YES 


'DID FUNCTION CAUSE OPI 
‘ERROR IF YES 
PHR_5, WRD_12, FNC_3, FNC_7, WRD_19); 


!'TEST ERROR REGISTER FOR CLEAR 


‘ERROR IF NOT CLEAR 
FNC_7, WRD_19, WRD_14, WRD_13, REG_3); 


!DROP THIS UNIT IF DODU_FLG SET 


R1,$SAVE2 : 

——t 

#40, aML.REG+40 ; 

ML .DUT,R1 

#177770,R1 

#7,aML .REG+40 

R1,aML.REG+40 

R2 ; DODU.FLG 
#-1,aML.REG+60 3 


SEQ 0205 


HARDWARD TEST S 


CZMLAAO ML-11 LOGIC 1 
ECTION 


4 
9255 032702 012777 


9296 033100 062706 
9297 033304 012702 
9298 033110 062706 
9299 033114 000434 
9300 033116 132777 
9301 033124 001030 
9302 033126 194455 
9303 033130 000056 
9304 033132 007444 
9305 033134 000000 
9306 033136 012746 


EST 


000011 
006001 


147174 


000001 


006040 


000007 


156722 


006646 


000006 


000016 
000001 
000026 


000200 


006660 


7ML4 


156770 
2$: 


3$: 


4$: 
156734 5$: 


6$: 


156624 7$: 


L 16 
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#11,a9ML.REG 
1,R0 


5$ 
LSOLY,R1 
4$ 


2 
#1,QML.REG 
7$ 

55 

54 

ASYNC 


0 
#WRD.19,-(SP) 
#FNC.7,-(SP) 
#FNC.3,-(SP) 
#WRD.11,<(SP)_ 
#PHR.5,-(SP) 
#WRD.1,-(SP) 
#FIV.EMT,-(SP) 
#7,-(SP) 
SP.RO 

14 

AML .REG+50 


#WRD.2,-(SP) 
#FIV.FMT,-(SP) 
6 Oe ie 


8 
#200,aML .REG+50 
8$ 


55 
56 
ASYNC 


0 
#PHR .6,-(SP) 


: *,$$TMP2 


3 *,SSTMP1 


; $SS$TMP 
; S$TMP1 


; SSTMP2 


i #.* 


: #,* 


: *,DODU.FLG 


22-0ct-19 
22-0ct-19 


80 
80 


10: 
10: 


47: 
245: 


SEQ 0206 


44 
32 


TOPS 
PA:< 


5149 
5150 


5152 
5155 


5156 


5158 
5161 


5162 


‘CZMLAAO ML-11 LOGIC TEST 
'HARDWARD TEST SECTION 


46 005630 


46 000006 


000001 
000016 
000001 


006040 


000007 


000001 
000020 
020000 


006040 


000007 


000001 
000020 
156356 


Wa 


SESE 


000000 


sami uaa 


MACRO M1113 23-OCT-80 09:11 


sML4 


156544 8$: 


156450 9$: 


10$: 


M 16 
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#WRD.1,-(SP) 
#WRD.48,-(SP) 
#PHR.1,-(SP) 
#WRD.2,-(SP) 
#FIV.FMT,-(SP) 
#6,-(SP) 

14 

#1,R2 


#16,SP 
#1,aML.REG+60 


#20,SP 
#20000, aML .REG+60 
10$ 

55 

60 

ASYNC 
#WRD.19,-(SP) 


#WRD.4.-(SP) 
#FIV. ERT, =(SP) 
#7,-(SP) 

*R 
14 
#1,R2 
#20,SP 
aM .REG+60 
11$ 
55 


61 
ASYNC 
0 


SP, 
* ,DODU.FLG 


; SP,* 


* ,DODU.FLG 


3; SP,* 


* ,DODU.FLG 


22-0ct-1 
22-0ct-1 


SEQ 0207 


TOPS 
PA:< 


5174 
5171 
5177 


5180 


5181 


N 16 
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IC _1 ‘ 

/HARDWARD TEST SECTION SEQ 0208 
9364 7ML4 22-Oct-1980 10:47:44 TOPS 
+t] ; 22-0ct-1980 10:45:32 PA:< 

9367 033414 012746 007320 MOV #REG.3,-(SP) ; 5197 

9368 033420 012746 005770 MOV #wRD.18,-(SP) 

9369 033424 012746 005774 MOV #WRD.14,=(SP) 

9370 033430 012746 006040 MOV #WRD.19,=(SP) 

9371 033434 012746 007036 MOV WFNC.7,=(SP) 

9372 033440 012746 006774 MOV #FNC.3,=(SP) 

9373 033444 012746 005432 MOV #SIX.FMT,-(SP) 

9374 033450 012746 000007 MOV #7,-(SP) 

9375 033454 010600 MOV SP ,RO ; #8 

9376 033456 104414 TRAP 14 

9377 033460 062706 000020 ADD #20,SP é \ 5195 

9378 033464 104467 118: TRAP 67 : 5198 

9379 033466 006000 ROR RO 

9380 033470 103002 *  BHIS 12$ 

9381 033472 000167 177142 JMP 1$ 

9382 033476 005302 12$: DEC Re ; DODU.FLG 5202 

9383 033500 001004 BNE 13$ . 

9384 033502 016700 156460 MOV ML .LUN,RO ; 5205 

9385 033506 104451 TRAP 51 

9386 033510 104444 TRAP 44 

9387 033512 005726 13$: TST (SP)+ : 5122 

9388 033514 000207 RTS PC 

9389 : 

9390 ; Routine Size: 218 words . 

4344 ; Maximum stack depth per invocation: 19 words 

9397 

9401 

9405 033516 T14:: 

9406 033516 004767 177110 1$: JSR PC,$T14 3 5207 

9407 033522 104466 TRAP 66 

9408 033524 006000 ROR RO 

9409 033526 103773 ‘ BLO 1$ 

eb 033530 000207 RTS PC 

9412 | ; Routine Size: 6 words | F 

9413 © ; Maximum stack depth per invocation: 0 words 5 

9418 ;ML4 22-Oct-1980 10:47:44 TOPS-20 Bliss-16 V2(206) 

9419 ; 22-Oct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (56) 


9421 ; 5210 !<BLF/PAGE> 


CZ2MLAAO ML-11 LOG 
HARDWARD TEST SEC 


9423 :ML4 
9 


C TEST 
I 


] 
TION 


WWAWAAAWAWAAIWWIMAIPI PRIMI MIMI NINN NN ee es Oe es ee ee 


AAQMNNAMMAMNVINAIY 
Me —OOONOUEWNr — 
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+ 
TEST NUMBER: TST 15 
TEST NAME: COMPOSIT ERROR TEST 


TEST gi prety 
TEST TO SEE IF SETTING EACH 
BiT IN THE ERROR REGISTER 
CAUSES A COMPOSIT ERROR BY: 


WRITING A SHIFTING ONE THROUGH 
THE ERROR REGISTER (SKIPPING THE 
READ ONLY BITS) AND TESTING THE 
COMPOSIT ERROR BIT IN MLDS 

FOR BEING SET AFTER EACH 

WRITE. 


! IMPLICIT INPUTS: NONE 


ccal 
DODU_FLG, 
DAT PAT, 
SKIB _MASK; 


CLR_MBUS; 

DODU_FLG = ZERO 
SKIP-MASK = Xo' 163157": 
DAT_PAT = ONE; 
DODO_FLG = ZERO; 


incr COUNT from 0 to 15 do 
begin 


if (.DAT_PAT and .SKIP_MASK) neq ZERO 
then 

begin 

BGNSUB; 

MLER = .DAT_PAT; 


if .COMP_ERR IS_NOT_SET 
then 


in 
behor (50, ASYNC, 0); 


SEQ 0209 


22-Oct-19 


8 TOPS=20 Bliss-16 V2(206) | 
22-0c t-198 


44 
:32 PA:<NEALE>BL2ML4.BLI.2 (57) 


‘DROP UNIT FLAG 
'DATA PATTERN 
‘POINTS TO MLER READ ONLY BITS 


'LCAD SKIP MASK 
'DATA PATTERN SET BIT 0 IN MLER 


‘WRITE AND SHIFT DATA PAT 10 MLER 16 TIMES 
'SKIP IF DAT_PAT FALLS ON READ ONLY BIT 
'WRITE DATA_PAT TO MLER 

'SEE IF DAT_PAT CAUSED A COMP ERROR 


'ERROR IF NO COMP ERROR 


PRINTB (FOR_ FMT, FNC 8, Sg 1, WRD_12, FNC_8); 


PRINTB (FMT Bag DAT T_PaT ° 
DODU_FLG = 
end; 


CZMLAAO ML-11 
HARDWARD TEST 


9479 ;ML4 


9503 033532 
9504 ateere 


9505 033544 
9506 033550 


9532 033672 


76 


. 
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ENDSUB; 
end; 


DAT_PAT = 
end; 


if .DODU_FLG IS_SET 


then 


os ay 
DODU (.ML_LUN); 
doc 


end; 
ENDTST; 


150302 $115 


sare 156174 


0 
000007 156156 
156152 


163157 
060001 
1$: 
2$: 
156144 


040000 156126 


007046 


000005 


004336 


.DAT_PAT“ONE; 


TOPS=20 Bliss-16 V2(206) - 


ah 
:32 PA:<NEALE>BL2ML4.BL1.2 (57) 


'SHIFT DAT_PAT TO NEXT BIT AND REPEAT 


'DROP UNIT IF DODU_FLG IS_SET 


R1,$SAVE4 
#40, aML .REG+40 


er es 
#-14621,R4 
#1,R2 


R3 
R2,R4 
4$ 


2 
R2,@ML.REG+60 
> reat saads 


55 
62 
ASYNC 


0 

#FNC.8,-(SP) 
#WRD.12,-(SP) 
#PHR.1,-(SP) 
#FNC.8.-(SP) 
#FOR.FMT,-(SP) 
#5,-(SP) . 
SP RO 

14 

R2, (SP) , 
#FRT.4,-(SP) 


DODU.FLG 
*,SKIP.MASK 
* ,DAT.PAT 


COUNT 
DAT.PAT,SKIP.MASK 


> DAT.PAT,* 


SP,* 
DAT.PAT,* 


SEQ 0210 


5259 


. 4 
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~ZMLAAO ML-11 LOG 
ECTION SEQ 0211 


HARDWARD TEST S 


9586 ; 5277 !<BLF/PAGE> 


9534 sML4 22-0ct-1980 10:47:44 TOPS 
e282 : 22-0ct-1980 10:45:32 PA:< 
9537 033676 012746 000002 MOV #2,-(SP) 
9538 033702 010600 MOV SP ,RO 3; SP,* 
| 9539 033704 104414 TRAP 14 
| 9540 033706 012701 000001 MOV #1,R1 3; *,DODU.FLG 5260 
| 9541 033712 062706 000020 ADD #20,SP : 5256 
| 9542 033716 104467 3$: TRAP 67 ; P 5261 
9543 033720 006000 ROR RO 
9544 033722 103731 BLO 2$ 
9545 033724 006302 4$: ASL R2 3 DAT.PAT 5266 
9546 033726 005203 INC R3 ; COUNT 5245 
9547 033730 020327 000017 CMP R3,#17 ; COUNT,* 
9548 033734 003722 BLE 1$ . 
9549 033736 005301 DEC Rt ; DODU.FLG 5269 
9550 033740 001004 BNE 5$ 
9551 033742 016700 156220 MOV ML.LUN,RO 5 5272 
9552 033746 104451 TRAP 51 
9553 033750 104444 TRAP 44 
oats 033752 000207 S$: RTS PC ; 5209 
9556 ; Routine Size: 73 words ; 
4344 ; Maximum stack depth per invocation: 13 words 
9563 
9567 
9571 033754 T15:: 
9572 033754 004767 177552 1$: JSR PC,$T15 , § 5274 
9573 033760 104466 TRAP 66 “s 
9574 033762 006000 ROR RO 
9575 032764 103773 BLO 1$ 
Lh 033766 000207 RTS PC 
9578 ; Routine Size: 6 words — 
oer ; Maximum stack depth per invocation: 0 words 
9585 
| 


CZMLAAO ML=-11 LOGI 
HARDWAPD TEST SECT 


7ML4 


Be Be Be Oe Be Be Oe Se Be Se Se Be Be Be Be Be Be Se Be Se Ge Be Ge Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Fe Ge Ge FH GH Ge Ge Se Se Ge Se Ge Se Fe Se SH SH Se 


C TEST 
ION 


WANG 
So 
uw 


DYDD PPV PVP SVT SVS OTST ST ST ST ST ST STITT TT 
OWOWNAVSWN HOO ONOAUESWN OO 


PONMIMOPIMPONMININPININD — ss Os Oe es ee 


MACRO M1113 23-OCT-80 09:11 


BGNTST; 


e4 

' TEST NUMBER: TST 16 

' TEST NAME: ATA BIT TEST 
TEST DESCRIPTION: 


A THE ATA BIT FOR SETTING 
3 


Te HE a BIT IN THE ERROR 


REGISTE 


— 1 
PAGE 220 


TEST THE ATA BIT FOR CLEARING 


AFTER BEING SET BY 


1. WRITING A FUNCTION TO MLCS1. 


UNITS ATA BIT 


WRITING A ONE INTO THIS 


TEST THE ATA BIT Sg NOT CLEARING 


AFTER BEING SET BY 


1. WRITING A ONE INTO THE 
ATA BIT OF THE OTHER 


i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
2: 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
be 


UNITS 
IMPLICIT INPUTS: NONE 
cal 
ATA_SAVE : bitvector (8], 
DAT_ “PAT; 
CLR_MBUS; 
MLER = ONE; 
MLER = ZERO; 


ATA_SAVE = .MLAS; 


if .ATA_SAVE C.ML_DUT) IS_NOT_SET 
then 


poate 

ERRDF (51, ASYNC, 0); 

oeuste (FOR, FMT, WRD_15, PHR_1, 
EXIT_TST; 

end; 


'STORES ALL 8 ATA BITS ON READS AND WRITES 


!DATA PATTERN 


'SET THE ATA BIT 
'READ THE ATTN REGISTER 


'SEE IF THIS DRIVES ATA BIT IS SET 


‘ERROR AND EXIT_TST IF NOT SET 


WRD_11, FNC_8); 


4% TOPS=20 Bliss-16 V2(206) 
:32 PA:<NEALE>BL2ML4.BLI.2 (58) 


SEQ 0212 


——— 


CZMLAAO ML-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 


HARDWARD TEST SECTION 


9644 ;ML4 
9645 ; 
9646 
9647 ; 5330 if .ATTN IS_NOT_SET 
9648 : 5331 then | 
9649 ; 5332 peaie 
9650 ; 5333 ERRDF (52, ASYNC, 0); 
| 9651 ; 5334 PRINTB (FIV_FMT, REG.2, WRD_16, PHR_1, 
| 9652 ; 5335 EXIT_TST; 
9653 ; 5336 end; 
| 9654; 5337 
| 9655 ; 5338 MLCS1 = NOOP; 
9656 ; 5339 
9657 ; 5340 if .ATTN IS_SET 
| 9658 : 5341 then, 
9659 ; 5342 they 
9660 ; 5343 ERRDF (53, ASYNC, 0); 
9661 ; 5344 PRINTB (FOR. FMT, WRD_ 15, PHR_2, WRD_11, 
9662 ; 5345 EXIT_TST; 
9663 ; 5346 end; 
| 9664 : 5347 
9665 ; 5348 ATA_SAVE = .MLAS; 
9666 ; 5349 
9667 ; 5350 if .ATA_SAVE C.ML_DUTJ IS_SET 
9668 ; 5351 then 
9669 ; 5352 peste 
9670 ; 5353 ERRDF (58, ASYNC, 0); 
9671 ; 5354 PRINTB (FIV. FMT, WRD_15, PHR_2, WRD_11, 
9672 : 5355 end; 
9673 : 5356 
9674 ; 5357 BGNSUB; 
9675 ; 5358 MLER = ONE; 
9076 ; 5359 MLER = ZERO; 
9677 ; 5360 ATA_SAVE = ZEROE 
9678 : 5361 ATATSAVE C.Mi urd = ONE; 
9679 ; 5362 MLAS = .ATA_SAVE; 
9680 ; 5363 
9681 ; 5364 if .ATTN IS_SET 
9682 ; 5365 then 
9683 ; 5366 pein 
9684 ; 5367 ERRDF (54, ASYNC, 0); 
9685 ; 5368 PRINTB (FIV. FMT, WRD_ 15, PHR_2, WRD_11, 
9686 ; 5369 end; 
9687 ; 5370 
9688 ; 5371 ENDSUB; 
| 9689 ; 3372 BGNSUB; 
| 9690 : 5373 MLER = ONE; 
9691 ; 5374 MLER = ZERO; 
9692 : 5375 DAT_PAT = ONE; 
9693 ;: 5376 
96% ; 5377 incr ATA_SEL from 0 to 7 do 
9695 ; 5378 begin 
| 9696 ;: 5379 
9697 ; 5380 if .ATA_SEL neq .ML_DUT 
9698 ; 5381 then 


SEQ 0213 


22-0¢t-1980 10:47:44 TOPS-20 Bliss-16 V2(206) 
22-Oct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (58) 


'SEE IF THE ATTN BIT IS SET 


'ERROR AND EXIT_TST IF NOT SET 


WRDO_11, FNC_8); 


‘TRY TO CLEAR THE ATA BIT WITH NOOP FUNC 
'SEE IF ATA GOT CLEARED 


'ERROR AND EXIT. TST IF SET 


FNC_2, WRD_19); 


'READ THE ATTENTION REGISTER 
'SEE IF THE ATA REG GOT CLEARED BY NO-OP 


FNC_2, WRD_19); 


‘SET THE ATA BIT 
'CLEAR ATA SAVE 

(SET ATA_SAVE FOR THIS DRIVE 

‘TRY TO CLEAR THE ATA BY WRITING TO IT. 


'SEE IF THE ATA GOT CLEARED 


‘ERROR IF ‘oes CLEARED 


WRD_17, REG_5 


'SET THE ATA BIT 
!DATA PATTERN OF ONE IN FIELD OF ZEROES 
'REPEAT LOOP 8 TIMES 


'SKIP IF ATA_SEL EQLS THIS DRIVE NO. 


CZMLAAO ML-11 LOG 


G1 
IC TEST MACRO M1113 23-OCT-80 09:11 PAGE 222 
HARDWARD TEST SECTI 


ON SEQ 0214 


9700 ;ML4 22-0ct-.980 10:47:44 TOPS=-20 Bliss-16 V2(206) 

444 ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (58) 

9703 ; 5382 4 y ; 

9704 ; 5383 MLAS = .DAT_PAT; ‘WRITE DAT PAT TO ATA REGISTER 

48 ; bene ATA “SAVE = TMLAS; 'READ ATA REG BACK 

9707 ; 5386 if .ATA_SAVE C.ML_DUT] IS_NOT_SET 'SEE IF THIS DRIVE ATA IS CLEARED 

9708 ; 5387 then 

9709 ; 5388 pean 

9710 ; 5389 ERRDF (55, ASYNC, 0); 'ERROR AND EXIT LOOP IF CLEARED 

9711 ; 5390 PRINTB (SIX_FMT, WRD.15, PHR_6, WRD_11, WRD_17, REG_5, 7); 

9712 ; 5391 PRINTB (FMT_7, .DAT_BA AT); 

9713 ; 5392 exitloop; 

9714 ; 5393 end; 

9715 ; 5394 

9716 ; 5395 end: 

9717 : 5396 

9718 ; 5397 DAT_PAT = .DAT_PAT“ONE; ‘SHIFT DAT_PAT AND REPEAT 

9719 ; 5398 end; 

9720 ; 5399 

9721 : 5400 ENDSUB; 

4 : 5401 ENDTST; 

9730 033770 004167 150044 $116: JSR R1,$SAVE4 ; 5276 
9731 033774 152777 000040 155736 BISB #40,aML.REG+40 ; 5315 
9732 034002 016700 156162 MOV ML .DUT,RO 

9733 034006 010004 MOV RO,R4 

9734 034010 042704 177770 BIC #177770,R4 

9735 034014 142777 000007 155716 BICB #7, QML .REG+40 

9736 034022 150477 155712 BISB R4,aML.REG+40 

9737 034026 012777 000001 155724 MOV #1,aML.REG+60 : 531 
9738 034034 005077 155720 CLR aML .REG+60 ; 531 
9739 034040 017746 155724 MOV @ML .REG+70,-(SP) + *&, ATA. SAVE 532 
9740 034044 010001 MOV RO,R1 ; 532 
9741 034046 006201 ASR R1 

9742 034050 006201 ASR R1 

9743 034052 006201 ASR R1 

9744 034054 010602 MOV SP,R2 > ATA.SAVE,* 

9745 034056 060201 ADD R2,R1 

9746 034060 010146 MOV Ri »=(SP) 

9747 034062 010046 MOV 

9748 034064 042716 177770 BIC BOE 5D. (SP) 

9749 034070 012746 000001 MOV #1,-(SP) 

9750 034074 005046 CLR -(§P) 

9751 034076 004767 147000 JSR PC ,BL$GT2 

9752 034102 062706 000010 ADD #10,SP 

9753 034106 005700 TST RO 


CZMLAAO ML-11 LOGIC 1 
HARDWARD TEST SECTION SEQ 0215 
9755 =ML4 22-0ct-1980 10:47:44 TOPS 
9796 : 22-0ct-1980 10:45:32 PA:< 
9758 034110 001026 BNE 1$ 
9759 034112 104455 TRAP = 555 : 5325 
9760 034114 000063 WORD 6 
9761 034116 007444 WORD ASYNC 
| 9762 034120 000000 “wORD 0 
9763 034122 012746 007046 MOV #FNC.8,-(SP) : 5326 
| =: 9764 034126 012746 005750 MOV #WRD.11,-(SP) 
| 9765 034132 012746 006542 MOV #PHR.1,-(SP) 
| 9766 034136 012746 006006 MOV #WRD.15,-(SP) 
| 9767 034142 012746 005400 MOV #FOR.FMT,=(SP) 
| 9768 034146 012746 000005 MOV #5,-(SP) 
9769 034152 010600 MOV SP,RO : SP,* 
| 9770 034154 104414 TRAP —s_‘14 
9771 034156 104463 TRAP —- 63 
9772 934160 062706 000014 ADD #14,SP ; 322 
9773 034164 000467 BR 4$ : 5324 
9774 034166 032777 100000 155554 1$: BIT #100000, aML.REG+50 : 5330 
| 9775 034174 001026 BNE 2$ 
9776 034176 104455 TRAP = 55 ; 5333 
9777 034200 000064 WORD 64 
9778 034202 007444 WORD ASYNC 
9779 034204 000000 “WORD 
9780 034206 012746 007046 MOV #FNC.B,-(SP) : 5334 
9781 034212 012746 005750 MOV #WRD.11,-(SP) 
9782 034216 012746 006542 MOV #PHR.1,-(SP) 
9783 034222 012746 006014 MOV #WRD.16,-(SP) 
9784 034226 012746 007312 MOV #REG.2,-(SP) 
9785 034232 012746 005414 MOV #FIV.FMT,-(SP) 
9786 034236 012746 000006 MOV #6,-(SP) 
9/87 034242 010600 MOV SP,RO : SP,* 
9788 034244 104414 TRAP —s-_-*'14 
9789 034246 104463 TRAP = 63 
9790 034250 000433 BR 3$ : 5330 
9791 034252 012777 000001 155420 2%: MOV #1, aML.REG : 5338 
9792 034260 005777 155464 TST aML .REG+50 : 5340 
9793 034264 100031 BPL 5$ 
794 034266 104455 TRAP 55 5343 
9795 034270 0000 WORD 65 
9796 034272 007444 WORD  ASYNC 
9797 034274 000000 “WORD 0 
9798 034276 012746 006040 MOV #WRD.19,-(SP) : 5344 
9799 034302 012746 006766 MOV #FNC.2,-(SP) 
800 0 012746 005750 MOV #WRD.11,-(SP) 
9801 034312 012746 006560 MOV #PHR.2,-(SP) 
9802 034316 012746 006006 MOV #WRD.15,-(SP) 
B03 034322 012746 005400 MOV #FOR.FMT,-(SP) 
9804 034326 012746 000006 MOV #6,-(SP) 
9805 034332 010600 MOV SP RO : $P,* 
| B06 034334 104414 TRAP —s-_‘14 
| 9807 034336 104463 TRAP = 63 
9808 034340 062706 000016 3$: ADD #16,SP : 5340 
9809 034344 000167 000544 i$: JMP 12$ : $342 


CZMLAAO ML=11 LOGIC TEST 


HARDWARD TEST SECTION 


oOo 
fo) 
~w 
oO 
o 
Ww 
& 
Ww 
~ 
So 


9839 034462 
9840 034466 


6 
07444 


Le 
w 
o 
$F 
aon 
o 
~ 
[=] 


155570 
177770 
000001 


146464 
000010 


006040 


000006 


000016 


000001 
155242 


155444 


155424 
177770 
000001 


146556 
000010 
155154 


155246 


155200 


:ML4 


5$: 


I 1 
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QML .REG*+70, (SP) 3 *, ATA. SAVE 
ML.DUT,R1 s 


SP,R2 ; ATA.SAVE,* 


ML .DUT,=(SP) 
#177770, (SP) 
#1,-(SP) 
-(§P) 

PC ,BL$GT2 
#10,SP 

RO 

6$ 
55 

72 
ASYNC 
0 


#WRD.19,-(SP) 


#6,-(SP) 
SP,RO ; #,* 
14 
2 


#1,QML.REG+60 
aML .REG+60 : 

(SP) > ATA. SAVE 
ML .DUT,R1 : 


SP,R2 : 


26 

R1.-(SP) 
ML .DUT,-(SP) 
#177776, (SP) 
#1,-(SP) 

(SF) ,-(SP) 
PC ,BL$PU2 
10(SP) ,aML .REG+70 
aML .REG*+SO 

7$ 

55 ; 
66 

ASYNC 


ATA. SAVE ,* 


; ATA.SAVE,* 


SEQ 0216 


TOPS 
PA:< 


5348 
5350 


5353 


5354 


5362 
5364 


5367 


J.1 
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HARDWARD TEST SECTION 


9867 ML4 
9868 ; 
9869 
9870 034604 000000 .WORD 0 
| 9871 034606 012746 007334 MOV #REG.5,-(SP) : 
9872 034612 012746 006022 MOV #WRD.17,-(SP) 
9873 034616 012746 005750 MOV #WRD.11.-(SP) 
| 9874 034622 012746 006560 MOV #PHR.2,-(SP) 
| 9875 034626 012746 006006 MOV #WRD.15,-(SP) 
9876 034632 012746 005414 MOV #FIV.FMT,-(SP) 
| 9877 034636 012746 000006 MOV #6,-(SP) 
9878 034642 010600 MOV SP; RO : SP,* 
9879 034644 104414 TRAP ‘14 
9880 034646 062706 000016 ADD #16,SP : 
| 9881 034652 062706 000010 7$: ADD #10.SP : 
9882 034656 104467 TRAP 67 : 
| 9883 034660 006000 ROR RO 
9884 034662 103707 BLO 6$ 
| 9885 034664 104402 8$: TRAP =. 2 ; 
9886 034666 012777 000001 155064 MOV #1,aML.REG+60 : 
9887 034674 005077 155060 CLR @ML .REG+60 : 
9888 034700 012704 000001 MOV #1,R4 : *,DAT.PAT 
9889 034704 005003 CLR R3 * ATA. SEL 
9890 034706 016702 155256 9$: MOV ML .DUT,R2 : 
9891 034712 020302 CMP R3,R2 : ATA.SEL,* 
9892 034714 001467 BEQ 10$ 
9893 034716 010477 155046 MOV R4, aML.REG+70 : DAT.PAT,* 
9894 034722 017716 155042 MOV aML .REG+70, (SP) : #, ATA. SAVE 
9895 034726 010201 MOV R2,R1 : 
896 034730 006201 ASR 1 
9897 034732 006201 ASR R1 
9898 034734 006201 ASR R1 
9899 034736 010600 MOV SP,RO ; ATA.SAVE,* 
9900 034740 060001 ADD RO.R1 
9901 034742 010146 MOV RI.~(SP) 
9902 034744 010246 MOV 
9903 034746 042716 177770 BIC ReaD. (SP) 
9904 034752 012746 000001 MOV #1,-(SP) 
9905 034756 005046 CLR -(§P) 
9906 034760 004767 146116 JSR PC ,BL$GT2 
7 034764 062706 000010 ADD #10,SP 
9908 034770 005700 TST RO 
034772 001040 BN 0$ 
9910 034774 104455 TRAP 55 
9911 034776 000067 .WORD 67 
9912 035000 007444 “WORD ASYNC 
9913 035002 000000 "WORD 0 
9914 035004 012746 006672 MOV #PHR.7,-(SP) 
9915 035010 012746 007334 MOV #REG.5.-(SP) 
9916 035014 012746 006022 MOV #WRD.17,-(SP) 
9917 035020 012746 005750 MOV #WRD.11.-(SP) 
| 9918 035024 012746 006660 MOVs #PHR 16, = (SP) 
| 9919 035030 012746 006006 MOV #wRD.15,-(SP) 
| 9920 035034 012746 005432 MOV #SIX.FMT,-(SP) 
| 9921 035040 012746 000007 MOV #7,-(SP) 
| 
| 


22-0c t-1980 
22-0c t-1980 


10:4 
10: 


SEQ 0217 


7:44 
45:32 


TOPS 
PA:< 


5368 


5389 


5390 


CZMLAAO ML-11 LOGIC TEST 


‘HARDWARD TEST SECTION 


| oes 
—— «9924 


992 
9926 035044 


Ww WWW 
~N wr uw 
Oo 
Ww 
uw 
So 
oa 
~ 


000207 


004767 
6 


000207 


5402 


3 
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004520 
000002 


000024 


000007 


176644 


'<BLF /PAGE> 


sML4 


10$: ASL 


118: TRAP 


12$: TST 


; Routine Size: 
; Maximum stack 


; Routine Size: 


; Maximum stack depth per invocation: 


300 words 


depth per invocation: 


6 words 


ee ee 


SEQ 0218 
22-0ct-1980 10:47:44 TOPS 
22-0ct-1980 10:45:32 PA:< 

SP,* 
DAT.PAT,* 5391 
. §P,e 
5392 
DAT.PAT 5397 
ATA.SEL 5377 
ATA.SEL,* 
5398 
5276 
5400 


= 
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'HARDWARD TEST SECTION SEQ 0219 
9977 [MLS 22-Oct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
9978 ; 22-Oct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI1.2 (59) 


9980 ; 5403 ! 
; 5404 ! 
5405 BGNTST; 


5407 !+¢ 
5408 TEST NUMBER: TST 17 


' TEST NAME: SEARCH FUNCTION TEST 
TEST DESCRIPTION: 
TEST THE SEARCH FUNCTION BY: 
1. DOING A SEARCH FUNCTION AT 


ARRAY ZERO AND TEST GO, 
ERROR BITS AND ATTN FOR 


999 5419 SETTING/NOT SETTING. 
9997 5420 
9998 
9 5422 PRESENT ARRAYS’ AND TEST ATTN 
10000 5423 SET 


3. DOING SEARCH FUNCTIONS AT ALL 
NOT PRESENT ARRAYS" AND TEST 
ATTN CLEARED. 


i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
5421 | 2. DOING SEARCH FUNCTIONS AT ALL 
i 
i 
i 
i 
i 
i 
IMPLICIT INPUTS: NONE 
i 
i. 


CLR_MBUS; 
5435 MLDA = ZEROES; 
5436 MLCS1 = SEARCH; 'DO A SEARCH FUNCTION 


5438 ae -GO IS_SET 'SEE IF GO IS SET 


2-244 
DONOUSWN— 


5441 BRRDF (56, ASYNC, 0); ‘ERROR IF NOT SET 
et smog: (Fiv_ FMT, WRD_1, PHR_2, WRD_11, FNC_10, WRD_19); 
en 


5445 if .ILF IS_SET 'SEE IF ILF IS SET 
5446 then 


5448 PRRDE (57, ASYNC, 0); ‘ERROR IF SET 
neh —— ‘FIV, FMT, WRD_ 3, PHR_5, WRD_11, FNC_11, FNC_10, WRD_19); 
end; 


5452 if .ATTN IS_NOT_SET ‘SEE IF ATIN IS SET 
5453 then 
; 5454 begin ; 
2 ;ML4 22-Oct-1980 10:47:44 TOPS-20 Bliss-16 V2(206) 
; 22-Oct-1980 45:32 PA:<NEALE>BL2ML4.BLI1.2 (59) 


—_— 
sesceessssessssssseess 3388323 323993333933333 


a at 
MPP PNR 
DONO UVEWN —$O 


Mroron 


M1 
PAGE 227-1 


CZMLAAO ML-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 
wane TEST SECTION SEQ 0220 
10035 ; 5455 ERRDF (59, ASYNC, 0); — IF NOT SET 
- 10036 ; 5456 PRINTB (Fiv. FMT, WRD_16, PHR_1, WRD_12, ‘"¢_10, 19); 
| 10037 ; 5457 end 
10038 ; 5458 else 
| 10039 ; 5459 begin 
10040 ; 5460 
| 10041 ; 5461 incr ARR_SEL from 0 to .LST_ARR by .ARR_INC do 'DO SEARCH AT ALL PRESENT ARRAYS 
0042 ; 5462 begin 
10043 ; 5463 BGNSUB; 
10044 ; 5464 CLR_MBUS; 
10045 ; 5465 MLDA = .ARR SEL; 'LOAD DSA REG WITH ARR_SEL 
10046 ; 5466 MLCS1 = SEARCH; 'DO A SEARCH FUNCTION 
10047 ; 5467 
10048 ; 5468 if .OPI IS_SET 'READ ATTN 
10049 ; 5469 th =" 
10050 ; 5470 begin 
10051 ; 5471 ERRDF (60, ASYNC, 0); ‘ERROR IF NOT SET 
10052 ;: 5472 PRINTB (FIV_FMT, WRD.4, PHR _5, WRD_12, FNC_10, WRD_19); 
10053 : $473 PRINTB (FMT-9, .ARR_SEL) 
10054 ; 5474 end; 
10055 ; 5475 
10056 ; 5476 ENDSUB; 
10057 ; 5477 end; 
10058 ; 5478 
10059 ; 5479 if .OP_NUM_ARR Lss %0'006017' 'SEE IF LSS 17 ARRAYS ARE PRESENT 
10060 ; 5480 then 
10061 ; 5481 
10062 ; 5482 incr ARR_SEL from .LST_ARR + .ARR_INC to .ARR_16 by ARR 
10063 ; 5483 DO A SEARCH a its wor PRESENT 
10064 ; 5484 begin i ARRAYS IF LSS 1 
10065 ; 5485 BGNSUB; 
10066 ; 5486 CLR 
10067 ; 5487 MLDA ARR SEL; 'LOAD DSA REG WITH ARR_SEL 
10068 ; 5488 MLCS1 = SEARCH; 'DO A SEARCH FUNCTION 
10069 : 5489 
10070 ; 5490 if .OPI IS_NOT_SET 'SEE IF OPI IS SET 
10071 : 5491 th - 
10072 ; 5492 pea’s 
10073 ; 5493 ERRDF (61, ASYNC, 0); ‘ERROR IF NOT SET 
10074 ; 5494 PRINTB (FIV_FMT, WRD.4, Pum 1, WRD_12, FNC_10, WRD_19); 
10075 ; 5495 PRINTB (FMT_9, .ARR_SEL 
10076 ; 5496 end; 
10077 ; 5497 
10078 ; 5498 ENDSUB; 
10079 ; 5499 end; 
10080 ; 5500 
10081 ; 5501 end; 
10082 ; 5502 
10083 ; 5503 ENDTST; 
10087 ZML4 22-Oct-1980 10:47:44 TOPS 
10088 i 33-0ct-1980 10:45:32 PA:< 
10089 
| 10090 
| 10094 035134 004167 146662 $117 JSR R1,$SAVE3 : 5401 
| 10095 035140 152777 000040 154572 BIS #40, aM .REG+40 ; $405 
10096 035146 016703 155016 MOV ML. bUT.R R3 


E ; nN 1 
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CZMLAAO ML-11 LOGIC 1 
HARDWARD TEST SECTION SEQ 0221 
10097 035152 42703 177770 BIC #177770,R3 
10098 035156 142777 000007 154554 BICB #7, AML. REG+40 
10099 035164 150377 154550 BISB = RB, aML.REG+40 
10100 035170 005077 154534 CLR AML .REG* 30 ; 5435 
10101 035174 012777 000031 154476 MOV #31aML.REG : 5436 
| 10102 035202 132777 000001 154470 BITB #1, aML.REG : 5438 
| 10103 035210 001426 BEQ 1$ 
| 10104 035212 104455 TRAP 555 ; 5441 
| 10105 035314 000070 “WORD 70 
10106 035216 007444 “WORD ASYNC 
| 10107 035220 000000 “WORD 0 
10108 035222 012746 006040 MOV #WRD.19,-(SP) : 5442 
10109 035226 012746 007074 MOV #FNC.10.-(SP) 
10110 035232 012746 005750 MOV #WRD.11.-(SP) 
10111 025236 012746 006560 MOV #PHR.2,-(SP) 
10112 035242 012746 005630 MOV #WRD.1.-(SP) 
10113 035246 012746 005414 MOV #FIV.FMT,-(SP) 
10114 035252 012746 000006 MOV #6,-(SP) 
10115 035256 010600 MOV SP; RO ; SP,* 
10116 035260 104414 TRAP ‘14 
10117 035262 062706 000016 ADD #16,SP : 5440 
10118 035266 132777 000001 154464 1$: BITB #1,aML.REG+60 : 5445 
10119 035274 001430 BEQ 2$ 
10120 035276 104455 TRAP 55 ; 5448 
10121 035300 000071 “WORD 71 
10122 035302 007444 “WORD ASYNC 
10123 035304 000000 “WwORD 0 
10124 035306 012746 006040 MOV #WRD.19,-(SP) : 5449 | 
10125 035312 012746 007074 MOV #FNC.10.-(SP) 
10126 035316 012746 007104 MOV #FNC.11.-(SP) 
10127 035322 012746 005750 MOV #WRD.11.-(SP) 
10128 035326 012746 006646 MOV #PHR.5,-(SP) 
10129 035332 012746 005646 MOV #WRD.3.-(SP) 
10130 035336 012746 005414 MOV #FIV.FMT,-(SP) 
10131 035342 012746 000007 MOV #7,-(SP) 
10132 035346 010600 MOV SP-RO > SP,* 
10133 035350 104414 TRAP 14 
10134 035352 062706 000020 ADD #20,3P ; 5447 
10135 035356 032777 100000 154364 2$: BIT #100000, amML.REG+50 : 5452 
10136 035364 001027 BNE 3$ 
10137 035366 104455 TRAP 455 ; 5455 
10138 035370 000073 “WORD = 78 
10139 035372 007444 “WORD ASYNC 
10140 035374 000000 "woRdD 0 
10141 7ML4 22-Oct-1980 10:47:44 TOPS 
| + by : 22-0ct-1980 10:45:32 PA:< 
| 
10144 035376 012746 006040 MOV #WRD.19,-(SP) ; 5456 
10145 035402 012746 007074 MOV #FNC.10,-(SP) 
10146 035406 012746 005760 MOV #WRD.12.-(SP) 
10147 035412 012746 006542 MOV #PHR.1,-(SP) 
| 10148 035416 012746 006014 MOV #WRD.16,-(SP) 
10149 035422 012746 005414 MOV #FIV.FAT,-(SP) 
10150 035426 012746 000006 MOV #6,-(SP) 
10151 035432 010600 MOV SP.RO : SP,* 
10152 035434 104414 TRAP ‘14 
10153 035436 062706 000016 ADD #16,SP : 5454 


B 2 
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HARDWARD TEST SECTION SEQ 0222 
10154 035442 000207 RTS PC ; 5452 
10155 035444 016702 152670 3$: MOV LST.ARR,P2 : | 5461 
10156 035450 016703 152650 MOV ARR.INC.R3 
10157 035454 005001 CLR R1 : ARR. SEL 
10158 035456 000467 BR 6$ 
10159 035460 104402 4$: TRAP 2 : 5462 
10160 035462 152777 000040 154250 BISB #40,aML.REG+40 : 5463 
10161 035470 016700 154474 MOV ML.OUT,RO 
10162 035474 042700 177770 BIC #177776,R0 
10163 035500 142777 000007 154232 BICB = #7, AML. REG+40 
10164 035506 150077 154226 BISB RO,aML.REG+40 
10165 035512 010177 154212 MOV R1.aML .REG+30 ; ARR.SEL,* 5465 
10166 035516 012777 000031 154154 MOV #31, aML.REG : 5466 
10167 035524 032777 020000 154226 BIT #20000, aML .REG+60 : 5468 
10168 035532 001435 BEQ 5$ 
10169 035534 104455 TRAP ‘55 ; 5471 
10170 035536 000074 .WORD 74 
10171 035540 007444 “WORD ASYNC 
10172 035542 000020 “WORD 0 
10173 035544 012746 006040 MOV #WRD.19,-(SP) : 5472 
10174 035550 012746 007074 MOV #FNC.10,-(SP) 

10175 035554 012746 005760 MOV #WRD.12,-(SP) 

10176 035560 012746 006646 MOV #PHR.5,-(SP) 

10177 035564 012746 005654 MOV #WRD.4.-(SP) 

10178 035570 012746 005414 MOV #FIV.FMT,-(SP) 

10179 035574 012746 000006 MOV #6,-(SP) 

10180 035600 010600 MOV SP.RO : SP,* 

10181 035602 104414 TRAP 14 

10182 035604 010116 MOV R1, (SP) ; ARR.SEL,.* 5473 
10183 035606 012746 004602 MOV #FMT.9,-(SP) 

10184 035612 012746 000002 MOV #2,-(SP) 

10185 035616 010600 MOV SP-RO : SP,* 

10186 035620 104414 TRAP 14 

10187 035622 062706 000022 ADD #22,SP ; | 5470 
10188 035626 104467 5$: TRAP 67 : 5474 
10189 035630 006000 ROR RO 

10190 035632 103712 BLO 4$ 

10191 035634 060301 ADD R3,R1 : #, ARR. SEL 5461 
10192 035636 020102 6$: CMP R1,R2 ; ARR.SEL,* 

10193 035640 003707 BLE 4$ 

10194 035642 026727 152454 000017 CMP OP.NUM.ARR,#17 ; 5479 
10195 035650 002102 BGE 10$ 

10196 ZML4 22-Oct-1980 10:47:44 TOPS 
3b : 22-Oct-1980 10:45:32 PA:< 
10199 035652 016701 152462 . MOV LST.ARR,R1 : 5482 
10200 035656 066701 152442 ADD ARR.INC.R1 

10201 035662 016703 152450 MOV ARR.16,R3 

10202 035 016702 152432 MOV ARR.INC,R2 

10203 035672 000467 BR $ 

10204 035674 104402 7$: TRAP 2 : 5484 
10205 035676 152777 000040 154034 BISB #40,aML.REG+40 : 5485 
10206 035704 016700 154260 MOV : 

10207 035710 042700 177770 BIC #177776,R0 

10208 035714 142777 000007 154016 BICB = #7, AML .REG+40 

10209 035722 150077 154012 BISB RO. aML.REG+40 

10210 035726 010177 153776 MOV R1_aML .REG*30 ; ARR.SEL,* 5487 


ee ee ae 


, 
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‘CZMLAAO ML-11 LOGIC T 

'HARDWARD TEST SECTION 
10211 035752 012777 000031 153740 MOV #31, aML.REG 
oetg 035740 032777 020000 154012 BIT #20000, aML .REG+60 
10213 035746 001035 BNE aS 
10214 o8e780 104455 TRAP —s 555 
10215 035752 000075 .WORD 75 
10216 035754 007444 .WORD  ASYNC 
10217 035736 000000 .WORD 0 
10218 035760 012746 006040 MOV #WRD.19,-(SP) 
10219 Sseren 012746 007074 MOV #FNC.10,-(SP) 
10220 035770 012746 005769 MOV #WRD.12,-(SP) 
10221 035774 012746 006542 MOV #PHR.1,-(SP) 
10222 036000 012746 005654 MOV #WRD.4,-(SP) 
10223 036004 012746 005414 MOV #FIV.FMT,<(SP) 
10224 036010 012746 000000 MOV #6,-(SP) 
10225 036014 010600 MOV SPRO 
10226 036016 104414 TRAP 1 
10227 036020 010116 MOV R1, (SP) 
10228 036022 012746 004602 MOV #FMT.9,-(SP) 
10229 036026 012746 000002 MOV #2,-(SP) 
10230 036032 010600 MOV SP,RO 
10231 036034 104414 TRAP 
10232 036036 062706 000022 ADD #22,SP 
10233 036042 104467 8$: TRAP = «67 
10234 036044 006000 ROR RO 
10235 036046 103712 BLO 7 
10236 036050 060201 ADD R2,R1 
10237 036052 020103 9$: CMP R1,R3 
10238 036054 003707 BLE 
10239 036056 000207 10$: RTS PC 
10241 ; Routine Size: 234 words 
10242 ; Maximum stack de: a per invocation: 
10247 
10248 
10255 
10259 036060 Ti?7:: 
10260 036060 004767 177050 1$: JSR PC,$T17 
10261 036064 104466 TRAP 66 
10262 036066 006000 ROR RO 
10263 036070 103773 BLO 1$ 
10264 0636072 000207 RTS PC 


SEQ 0223 
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1 
BGNTST: 


le¢ 


3 TEST NUMBER: TST 18 
TEST NAME: READ IN PRESET TEST 
TEST DESCRIPTION: 


AND VV FOR SET / NOT SET 


CLR_MBUS; 

mcSie RD_ IN_PRE; 

if .GO IS_SET 

then 
tt hy (62, ASYNC, 0); 
PRINTB (FIV. FMT, WRD_ 1, PHR_2, WRD_11, 
end; 

1% .0LF (3_S€T 

then 


peste 

ERRDF (63, ASYNC, 0); 

PRINTB (FIV_FMT, WRD_3, PHR_5, WRD_11, 
end; 


if .OPI IS_SET 
then 


PRRDE (64, ASYNC, 0); 
PRINTB (Fiv_ FMT, WRD_ 4, PHR_5, WRD_11, 


end; 
if .VV IS_NOT_SET 
then 
Peior (65, ASYNC, 0); 
PRINTB (FIV. FMT, WRD_ 18, PHR_1, WRD_11, 
end; 
ENDTST; 


dD 2 
228 


TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (60) 


TEST THE READ IN PRESET FUNCTION BY: 
1. PERFORMING A READ-IN- + Sa FUNCTION AND TESTING GO, ERROR BITS 


!DO A READ IN PRESET FUNCTION 
'SEE IF GO IS NOT SET 


'ERROR IF SET 
FNC_11, WRD_19); 


'SEE IF ILF IS NOT SET 


‘ERROR IF SET 
FNC_11, WRD_19); 


'SEE IF OPI IS NOT SET 


‘ERROR IF SET 
FNC_11, WRD_19); 


‘SEE IF VV IS SET 


‘ERROR IF NOT SET 
FNC_1i, WRD_19); 


SEQ 0224 
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CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION 
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;ML4 


153636 $118: 


153534 1$: 


153450 2%: 


#40 ,aML.REG+40 


RO. aML .REG*40 
#21, aML.REG 
n, , QML REG 


55 

76 
ASYNC 
0 


#WRD.19,-(SP) 


#FIV. LFMT, - (SP) 
#6,-(SP) 


y 
#16,SP 
#1, aML.REG+60 


0 
#WRD.19,-(5 
#FNC.11,-(S 
#WRD.11,-(S 
#PHR.5,-(SP 
#WRD.3,-(SP) 
#FIV.FMT,-(SP) 
#6,-(SP) 

SP,RO 

14 


#16,SP 
#20000, aML .REG+60 


P) 
P) 
P) 
) 


; +,* 


: #,* 


22-0c t-1980 
22-0ct-1980 


10:4 
10:4 


SEQ 0225 


47:44 
45:32 


TOPS 
PA:< 


5506 


5522 
5524 


5527 


5528 


5526 
5531 


5534 


5535 
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5541 
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HARDWARD TEST SECTION SEQ 0226 
| 10381 ML4 22-0ct-1980 10:47:44 TOP 
ORES H 22-0ct-1980 10:45:32 PA:< 

10384 036342 012746 005654 MOV #WRD.4,-(SP) 

10385 036346 012746 005414 MOV #FIV.EMT,=<(SP) 

10386 036352 012746 000006 MOV #6,-(SP) 

10387 036356 010600 MOV SP,RO : $P,* 

10388 036360 104414 TRAP 14 

10389 036362 062706 000016 ADD #16,SP : 5540 

10390 036366 132777 000100 153354 3$: BITB =: #100, aML.REG+50 : 5545 

10391 036374 001026 BNE 4$ 

10392 036376 104455 TRAP 55 : 5548 

10393 036400 000101 -WORD 101 

10394 036402 007444 WORD ASYNC 

10395 036404 000000 . WORD 

10396 036406 012746 006040 MOV #WRD.19,-(SP) : 5549 

10397 036412 012746 007104 MOV #FNC.11,-(SP) 

10398 036416 012746 005750 MCV #WRD.11,-(SP) 

+ 444 036422 012746 006542 MOV #PHR.1,-(SP) 

10401 036432 012746 005414 MOV #FIV.EMT,-(SP) 

10402 036436 012746 000006 MOV #6,-(SP) 

10403 036442 010600 MOV SP,RO 3 SP,* 

10404 036444 104414 TRAP 14 

10405 036446 062706 000016 ADD #16,SP : 5547 

9s 036452 000207 4$: RTS PC ; 5503 

10408 ; Routine Size: 120 words 

10409 : Maximum stack depth per invocation: 7 words 

10414 

10415 

10419 

10423 036454 T18:: 

10424 036454 004767 177414 1$: JSR PC,$118 2 5550 

10425 036460 104466 TRAP 66 


nese 036406 000207 RTS PC 


10430 ; Routine Size: 6 words ~ 
10431 : Maximum stack depth per invocation: 0 words 


10441 ; 5553 !<BLF/PAGE> 


aii, a 
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BGNTST; 


\¢4 
TEST NUMBER: 


TST 19 
TEST NAME: 
TEST DESCRIPTION: 


ILLEGAL FUNCTION TEST 


TEST THE DETECTION OF ILLEGAL 
© a me WRITTEN TO MLCS1 


WRITING ALL POSSIBLE ILLEGAL 
FUNCTIONS TO MLCS1. THEN 
TEST GO AND ERROR BITS CLEARED. 


IMPLICIT INPUTS: 


local 


BAD_BITS = 


a 
BAD_BITS, 
BAD FUNC: 


ZEROES; 


NONE 


incr CNT_1 from 0 to 2 do 


BAB B BITS = 


_MBUS ; 
BAD-FUNC = .CNT 


FIRST BLK XFER @); 
.BAD_FUNC: 


MLCS17= 
if .ILF IS_SET 


2+ 


-BAD_BITS + %o0'2'; 
incr CNT_2 from %o'1' to %o'71" by %0'10' do 


.BAD_BITS; 


G2 
PAGE 231 


TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (61) 


'STORES A COUNT TO GENERATE BAD FUNCTIONS 
‘STORES GENERATED BAD FUNCTION 


!CLEAR BAD BITS 
'REPEAT LOOP 3 TIMES 
‘ADD 2 TO BAD_BITS 


'REPEAT LOOP GENERATING ‘GOOD’ FUNCTIONS 


‘ADD BAD_BITS TO C(NT_2 — BAD FUNCTIONS 


‘SET UP A FIRST BLOCK x 


FERR 
‘LOAD MLCS1 WITH TWO BAD FUNCTIONS 


'SEE IF ILF IS SET 


begin (66, ASYNC, 0); 


PRINTB (FIV, FMT, 
PRINTB (FMT_12, 


WRD_1, 


‘IF ILF IS SET THEN SEE If GO IS SET 


‘ERROR IF GO SET D 19), BAD FUNCTION 


PHR_2, WRD_11, 


-BAD_ “FUNC); 


FNC_12, WRD_1 


SEQ 0227 
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'HARDWARD TEST 
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OGIC TEST 
ECTION 


001471 


end; 
ENDTST; 
145364 


000002 
000001 


000040 

0 

0 
000007 
153172 
153744 
153120 
000001 


000001 
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end; 


end 
else 


tt My 

ERRDF (67, ASYNC, 0); 

PRINTB (FIV_FMT, WRD_3, PHR_1, 
PRINTB (FMT_12, .BAD_FUNC); 


H 2 
232 
SEQ 0228 


TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (61) 


‘ERROR BAD FUNCTION DON'T CAUSE ILF 
WRD_17, FNC_12, WRD_19); 


end; 
if .OPi iS_SET 'SEE IF OPI IS SET 
then 
they 
ERRDF (68, ASYNC, 0); ‘ERROR IF SET 
PRINTB (FIV_FMT, WRD_4, PHR_S, WRD_12, FNC_12, WRD_19); 
PRINTB (FMT_12, .BAD_FUNC); 
end; 
ENDSUB; 
end; 
$119: JSR R1,$SAVE5 : 5552 
CLR RG ; BAD.BITS 5582 
CLR R1 3; CNT.4 5584 
1$: ADD #2,R4 ; *,BAD.BITS 5586 
MOV #1,R2 : *,CNT.2 5588 
2$: MOV R4,R5 ; BAD.BITS,* 5592 
ADD R2,R5 ; CNT.2,* 
3$: TRAP 2 : 5589 
153214 B1SB #40,aML.REG+40 : 5590 
MOV ML .DUT,RO 
BIC #177776, RO 
153176 BICB #7, QML .REG+40 
BISB RO,@ML.REG+40 t. 
MOV R5,R ; *,BAD.FUNC $592 
JSR PC,FIRST.BLK.XFER 3 5593 
MOV -@ML .REG ; BAD.FUNC,* 5594 
153172 BITB oem. SES : 5596 
BEQ 
153102 BITB #1,QML.REG ; 5600 
BEQ 6$ 
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2 
2 . 
2746 005654 MOV #WRD.4,-(SP) 
2746 005414 MOV #FIV.FMT,-(SP) 
2746 000006 MOV #6,-(SP) 

0600 MOV SP,RO ; SP,* 


HARDWARD TEST SECTION SEQ 0229 
10554 ML4 ; 22-Oct-1980 10:47:44 TOPS 
13882 ; 22-0ct-1980 10:45:32 PA:< 

| 10557 036600 104455 TRAP ‘55 : 5603 

| 10558 036602 000102 .WORD 102 
10559 036604 007444 WORD ASYNC 
10560 036606 000000 “WORD 
10561 036610 012746 006040 MOV #WRD.19,-(SP) : 5604 
10562 036614 012746 007124 MOV #FNC.12,-(SP) 

| 10563 036620 012746 005750 MOV #WRD.11.=(SP) 

10564 036624 012746 006560 MOV #PHR.2,-(SP) 
10565 036630 012746 005630 MOV #WRD.1.-(SP) 
10566 036634 012746 005414 MOV #FIV.FMT,-(SP) 
10567 036640 012746 000006 MOV #6,-(SP) 
10568 036644 010600 MOV SP-RO : SP,* 
10569 036646 104414 TRAP 14 
10570 036650 010316 MOV R3, (SP) : BAD.FUNC,* 5605 
10571 036652 012746 004742 MOV #EMT.12,-(SP) 
10572 036656 012746 000002 MOV #2,-(SP) 
10573 036662 010600 MOV SP.RO : SP,* 
10574 036664 104414 TRAP ‘14 
10575 036666 000433 BP 5$ : 5602 
10576 036670 104455 4$: TRAP 4555 : 5611 
10577 036672 000103 .WORD 103 
10578 036674 007444 WORD ASYNC 
10579 036676 000000 "WORD 0 
10580 036700 012746 006040 MOV #WRD.19,-(SP) 5612 
10581 036704 012746 007124 MOV #FNC.12.-(SP) 
1 036710 012746 005750 MOV #WRD.11.-(SP) 
10583 036714 012746 006542 MO\ #PHR.1,-(SP) 
1 036720 012746 005646 MO\ #WRD.3,-(SP) 
10585 036724 012746 005414 MOV #FIV.EMT,-(SP) 
10586 036730 012746 000006 MOV #6,-(SP) 
10587 036734 010600 MOV SP RO : SP,* 
10588 036736 104414 TRAP ‘14 
10589 036740 010316 MOV R3, (SP) ; BAD.FUNC,* 5613 
10590 036742 012746 004742 MOV #FMT.12,-(SP) 
10591 036746 012746 000002 MOV #2,-(SP) 
10592 036752 010600 MOV SP.RO : SP,* 
10593 036754 104414 TRAP 14 
10594 036756 062706 000022 5$: ADD #22,SP : 5610 
10595 036762 032777 020000 152770 6$: BIT #20600, aML.REG+60 : 5616 
10596 036770 001435 BEQ 7$ 
10597 036772 104455 TRAP 55 : 5619 
10598 036774 000104 .WORD 104 
10599 036776 007444 WORD ASYNC 
10600 037000 000000 "WORD 
10601 037002 012746 006040 MOV #WRD.19,- 5620 
10602 037006 012746 007124 MOV #FNC.12.- 
| 
| 
l 


CZMLAAO ML-11 LOGIC TEST 
HARDWARD TEST SECTION 


Weld 


037040 


RRESRSSRARESSSROORS 


WRI PNP PNPOPEPY PD 2 2 PO OO ee 
ODOWNAUVULSWN $0 OONOUFSWN— 
oO oOo 
Ww 
~ 
¥ 


FS 


0 037120 


tot 2 od = 2 


10647 037122 
10648 


52 037134 
3 


000207 


004767 


000207 


5630 
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004742 
000002 


000022 
000010 
000071 


000002 
177360 


177342 


! <BLF /PAGE> 


7$: 


8$: 


; Routine Size: 
; Maximum stack 


=> ng 


; Maximum stack depth per invocation: 


L4 


JSR 
TRAP 
ROR 
BLO 
RTS 


; Routine Size: 


1.2 
PAGE 234 


141 words 


depth per invocation: 


6 words 


15 words 


0 words 


; BAD.FUNC,* 


. SP,* 


; # CMT oe 
3; CNT.2,* 


; CNT.1 
» CNT.1,* 


22-0c t-1980 
22-0c t-1980 


10:47:44 
10:45 


SEQ 0230 


TOPS 


:32 PA:< 


5621 


5618 
5622 


5588 


5584 


5552 


5627 


CZMLAAO ML=11 L 
MARDWARD TEST S 
| 


| 10664 ;ML4 
| 10665 ; 


— 

& 

“INNS 

wo 
Se Se Oe Se Oe Be ees 


e 
8 


OGIC I 
ECTION 


EST 


= 
MACRO M1113 23-OCT-80 09:11 PAGE 235 


BGNTST: 


'¢ 


! TEST NAME: 


. 
' 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
! 
. 
' 
. 
' 
. 
1 
. 
' 
. 
' 
' 
. 
' 
. 
' 
. 
' 
. 
' 
* 
' 
. 
leo 
. 


incr CNT from 0 to 2 do 


“ 
TEST NUMBER: TST 20 


REGISTER MODIFICATION REFUSED TEST 


TEST DESCRIPTION: 


IMPLICIT INPUTS: 


TEST THE DETECTION OF A 
— MODIFICATION REFUSED 


1. WRITTING TO MLCS1, MLDA 
AND MLER WHILE THE DRIVE 
1S BUSY AND TEST RMR 
BIT SET. 


ALSO SEE IF THE DRIVE ASSERTED 
EXCEPTION BY TESTING THE TRE BIT SET. 


NONE 


'REPEAT LOOP 3 TIMES 


CLR_MBUS; 
MLCS1 = write; 


case .CNT from 0 to 2 of 
set 


'DO A WRITE FUNCTION 
‘WRITE TO SELECTED REGISTERS FORCING RMR 


): 
MLCS1 = %0'000000'; 


(1) : 

MLDA = ONES; 
(2) : 

MLER = ONES 
tes; 


DELAY (FRTY_US); 
if .RMR IS_NOT_SET 
begin 


'SEE IF RMR GOT SET 


44 TOPS-20 Bliss-16 V2(206) 
732 PA:<NEALE>BL2ML4.BLI1.2 (62) 


SEQ 0231 


sc on wa cia Ga ences taal eT PA, 
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HARDWARD TEST SECTION SEQ 0232 
10720 ;ML4 22-0ct-1980 10:47:44  TOPS-20 Bliss-16 v2(206) 
18rS) ; 2270ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (62) 
10723 ; 5683 ERRDF (69, ASYNC, 0); 'ERROR IF NOT SET 
10724 : 5684 PRINTB (FOR_FMT, WRD.21, PHR_1, WRD_11, WRD_21); 
10725 ; 5685 end; 
10726 : 5686 
10727 : 5687 if .TRE 1S_NOT_SET 'SEE IF DRIVE ASSERTED EXCEPTION ®\ iESTING TRE 
10728 : 5688 then 
10729 : 5689 begin 
10730 : 5690 ERRDF (117, SYNC, 0); 
10731 ; 5691 PRINTB (FOR_FMT, WRD.20, PHR_1, WRD_11, WRD_21); 
10732 ; 5492 end; 
10733 ; 5693 
10734 : 5694 ENDSUB; 
10735 ; 5695 end; 
10736 : 5696 
10737 ; 5697 ENDTST; 
10745 037136 004167 144644 $120: JSR R1,$SAVE2 : 5629 
10746 037142 005746 TST -(SP) 
10747 037144 005002 CLR R2 : CNT 5659 
10748 037146 104402 1$: TRAP 2 : 5660 
10749 037150 152777 000040 152562 BISB  #40,aML.REG+40 : 5661 
10750 037156 016701 153006 MOV L.DUT,R1 
10751 037162 042701 177770 BIC #177770,R1 
10752 037166 142777 000007 152544 BICB = #7, aML..REG+40 
10753 037174 150177 152540 BISB  R1,aML.REG+40 
10754 037200 012777 000061 152472 MOV #61, aML.REG : 5663 
10755 037206 010201 MOV R2,R1 : CNT,* 5665 
10756 037210 006301 ASL R1 
10757 037212 066107 037216 ADD 2$(R1),PC 
10758 037216 000006 2$ WORD 3$-2$ 
10759 037220 000014 WORD 4$-2$ 
10760 037222 000024 “WORD 5$-2$ 
10761 037224 005077 152450 3$: CLR aML .REG : 5669 
10762 037230 000407 BR 6$ : 5665 
10763 037232 012777 177777 152470 4$: MOV #-1,aML.REG+30 ; 5672 
10764 037240 000403 BR : 5665 
10765 037242 012777 177777 152510 5$: MOV #-1,aML.REG+60 ; 5675 
10766 037250 012700 000050 6$: MOV #50,R0 > *,$$TMP2 5678 
10767 037254 001410 7$: BEQ 10$ 
10768 037256 016701 142634 MOV LSDLY,R1 : *,$STMP1 
10769 037262 001403 BEQ 9$ 
10770 037264 005016 8S: CLR (SP) : $$TMP 
10771 037266 005301 DEC R1 > $$TMP1 
10772 037270 001375 BNE 8$ 
10773 037272 005300 9$: DEC RO : $STMP2 
10774 ML4 22-Oct-1980 10:47:44 TOPS 
10775 : 22-Oct-1980 10:45:32 PA:< 
10777 037274 000767 BR 7$ 
10778 037276 132777 000004 152454 10$:  BITB #4,aML.REG+60 : 5680 
10779 037304 001024 BNE 11% 
10780 037306 104455 TRAP = 55 : 5083 
10781 037310 000105 .WORD 105 
10782 037312 007444 “WORD ASYNC 


CZMLAAO ML-11 LOGIC TEST 


|HARDWARD TEST SECTION 


4 
§ 012746 006054 
6 


| 
10787 037332 012746 006054 
10788 037336 012746 005400 
10789 037342 012746 000005 


10792 037352 062706 000014 
One? 037356 032777 040000 


10799 037376 012746 006054 


10804 037422 012746 000005 


10806 03 
10807 037432 062706 000014 


037446 pee ge 000002 


1 

1 

1 

1 

1 

10814 03 

10315 037456 000207 
1 

10828 037460 004767 177452 
10829 037464 

1 


wink gAs yt 
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152314 


118: BIT 


12 


T2 


1$: 


$: TRAP 


O:: 


: Routine Size: 


; Maximum stack depth per invocation: 


0 
#WRD.21,-(SP) 
#WRD.11,-(SP) 


#14,SP 

#40000 ,aML.REG 
12$ 

55 

165 

SYNC 

0 


#WRD.21,-(SP) 
#WRD.11,-(SP) 


#5,-(SP) 
0 


6 words 


0 words 


. SP,* 


. SP,* 


; Cf 
s CuT,* 


SEQ 0233 


5684 


5682 
5687 


5690 


5691 


5689 
5692 


5659 


5629 


5695 


-——- —_—_ ———— ~ - —a — —— _-— ee - — — 


N_ 2 
ZMLAAO ML=-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 237 


| 
¢ 
'HARDWARD TEST SECTION SEQ 0234 
10841 ;ML4 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
Me a : 22°0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (63) 
10844 ; 5699 =! 
10845 ; 5700 ! 
10846 ; 5701 BGNTST; 
10847 ; $752 
10848 ; 5703 !++ 
10849 ; 5704 |! TEST NUMBER: TST 21 
10850 ; 5705 |! 
10851 ; 5706 ! TEST NAME : initial PROM TEST 
10852 ; 5707 ! 
10853 ; 5708 |! TEST DESCRIPTION: 
10854 ; 5709 ! 
10855 ; 5710 ! TEST THE MEMORY ARRAYS’ PROM 
10856 ; $711! TIMING AND CONTROL LOGIC FOR 
10857 ; 5712 | INITIAL PROM READS BY: 
10858 ; 5713! 
10859 : 5714! 1. READING 14 PROM LOCATIONS 
10860 ; 5715 | AND TESTING FOR: 
10861 ; 5716! 
10862 ; $717! A. CHECK SUM ERRORS AT 
10863 ; 5718 | EACH ROW COLUMN ADRS 
10864 ; $719: 
10865 ; 5720 : B. SUM OF EACH PROM BIT SET 
10866 ; $721! <9,0> GTR 14. 
10867 ; 5722 | 
10868 ; 5723 | IMPLICIT INPUTS: NONE 
0869 ; 5724 | 
10870 ;: 5725! 
10871 ; 5726 i- 
10872 ; 5727 
10873 ; 5728 local 
10874 ; $729 OFF_SET_CNT : vector (10, byte), ‘COUNTS EACH NIBBLE OFFSET 
10875 ; 5730 ROW =ORED COL : bitvector [16], ‘SAVES ROW DATA OR'ED WITH COL DATA 
0876 ; 5731 R_C_SAV Slemechar (16), 'TEMP LOCATION FOR ROW COL DATA 
10877 ; 5732 PROM ADRS, 'PROM ADDRESS 
10878 ; 5733 CHK_SUM, 'CHECK SUM DATA 
10879 ; 5734 CHK_SUM_ERR, 'CHECK SUM ERROR 
10880 ; 5735 BAD"NIB- CNT, 'COUNTS BAD NIBBLES 
10881 ; 5736 CNT-14_ Bab, ‘COUNTS BAD NIBBLE POSITION EQL 14 
10882 ; 5737 poo0_F(c, ‘DROP UNIT FLAG 
10883 ; 5738 ERR_FLG; 'ERROR FLAG. 
10884 ; 5739 
10885 ; 5740 CLR_MBUS; 
10886 ; 5741 DODO_FLG = ZERO; 
10887 ; 5742 PROM_DIS = ONE ; 'SET PROM DISABLE MODE 
10888 ; 5743 CHK_SUM_ERR = ZEROES; 
10889 ; 5744 
10890 ; 5745 incr CNT fromOt 'CLEAR OFFSET COUNTS 
10891 ; 5746 OFF _SET_CNT t° Matte ZEROES; 
10892 ; 5747 
10895 : 2748 face Aone CNT from 0 to 14 do 'READ PROM DATA FROM 15 ARRAY WORDS 
10895 ; 5750 ROw.O ORED_COL = ZEROES; ‘CLEAR ROW ORED COL SAVE LOCATION 


—_——__—_—_-_—_-_ -- Se nn ne 
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'MARDWARD TEST SECTION SEQ 9235 

10897 ;ML4 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
4 2 ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (63) 
10900 ; 5751 PROM_ADRS = .ADRS_CNT; 'GET COPY OF ADRS_CNT 

10901 ; 5752 

10902 ; 5753 incr Twice from 0 to 1 do 'READ ROW AND COL DATA FOR THIS ARRAY WORD 

0903 ; 5754 be 7s 

10904 ; 5755 BA N18. CNT = ZEROES; 

10905 ; 5756 ERR_FLG = ZERO; 

10906 ; 5757 MLPA = .PROM ADRS; ‘LOADING MLPA INITIATES PROM READ 

10907 ; 5758 DELAY (ONE _US); 

10908 ; 5759 R_C_SAV = TMLPD; 'GET THE ROW OR COL DATA 

10909 ; 5760 

19 : 276) incr BIT_CNT from 0 to 9 do 'COUNT NUMBER BITS SET IN <9:0> 

10718 : 276° if .R_C_SAV C.BIT_CNT] IS_SET then BAD_NIB_CNT = .BAD_NIB_CNT + 1; 

ya : gre CHK_SUM = .R_C_SAV<10, 3>; 'GET THE CHECK SUM BITS 

10018 : 144 if .R_C_SAV [13] IS_SET them CHK_SUM = .CHK_SUM + 1; ‘ADD IN BIT 13 

3 

Hy 344 | ; Th 4 if .R_C_SAV [14] IS_SET then CHK_SUM = .CHK_SUM + 1; 'ADD IN BIT 14 

10920 : 44 if .R_C_SAV [15] IS_SET then CHK_SUM = .CHK_SUM + 1; 'ADD IN BIT 15 

10922 ; 5773 if .R_C_SAV [15] IS_SET ‘1S BIT 15 SET 

10923 ; 5774 then 
10924 ; 5775 begin 

10925 ; 5776 
10926 ; 5777 if .BAD_NIB_CNT lss .CHK_SUM then ERR_FLG = ONE; 'SET ERROR FLG IF CHECK SUM ERROR 
10927 ; 5778 
10928 ; 5779 end 
10929 ; 5780 else 
10930 ; 5781 begin 
10931 ; 5782 
10932 ; 5783 if .BAD_NIB_CNT neq .CHK_SUM then ERR_FLG = ONE; 'SET ERROR FLG IF CHECK SUM ERROR 
10933 ; 5784 

10934 ; 5785 end; 

10935 ; 5786 

10936 ; 5787 if .ERR_FLG IS_SET ‘WAS THERE A CHECK SUM ERROR 

10937 ;: 5788 then 

10938 ; 5789 begin 'REPORT INTERMEDIATE ERROR IF YES 

10939 ; 5790 ERRDF (70, INTER, 0); 

10940 ; 5791 PRINTB (SIX. FMT, FNC_21, wRD 10, WRD_12, WRD_45, WRD_35, FNC_6); 

10941 ; 5792 PRINTB (FMT oi’: . CHK “SUM, RC _SAV); 

10942 ; 5793 DODU_FLG = 

10943 ; 5794 end; 

10944 ; 5795 

10945 ; 5796 ROW_ORED_COL = (.ROW_ORED_COL) or forts 'OR ROW AND COLUMN DATA 

10946 ; 5797 PROM_ADRS = (.PROM_ADRS) or (%o' 5000"5 ‘GET COLUMN DATA 

10947 ; 5798 end; 

10948 ; 5799 

10%? : 2800 incr index from 0 to 9 do 'GET TOTAL OFF SET COUNTS FROM THE 15 ARRAY WORDS 
10951 ; 5802 if .ROW_ORED_COL C. index] IS_SET then OFF_SET_CNT C.index] = .OFF_SET_CNT C.index] + 1; 


. 2 
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we ee SECTION SEQ 0236 


: 22=0ct-1980 10:47:44  TOPS=20 Bliss-16 v2(206) 
ee ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI1.2 (63) | 
10956 ; 5803 
10957 ; 5804 end; 

10958 ; 5805 

10959 ; 5806 CNT_14_BAD = ZEROES 

10960 ; 5807 

+44 ; hse incr CNT from 0 to 9 do ‘COUNT HOW MANY OFFSET COUNTS GEQ 14 

10965 ; 2810 if .OFF_SET_CNT C.CNT] geq 14 then CNT_14_BAD = .CNT_14_BAD + 1; 

10965 ; 5812 if .CNT_14_BAD neq ZERO ‘WAS ANY CFF_SET COUNTS GTR ZERO 

10966 : 3813 then | 
10967 ; 5814 begin 

10968 ; 5815 ERRDF (71, ARR_DAT, 0); 'ERROR IF YES 

10969 ; 5816 

Hy ad ; ei? it CNT. 14_BAD eql 10 ‘WERE ALL 10 NIBBLE OFFSETS GEQ 14 

10972 ; 5819 * ORINTB (SIX_FMT, WRD_55, WRD_54, WRD_46, Wao 51, WRD_42, WRD_4 'ERROR IF YES 

10973 ; 5820 else F NO THEN PRINT cnTen. ONES WERE 

10974 : 5821 

ieoce ; 2822 +4 As (FOR_FMT, WRD_46, WRD_47, WRD_42, WRD_40); 'PRINT MESSAGE 

10977 ; 5824 incr CNT from 0 to 9 do 'FIND OFFSETS GEQ 14 

10978 ; 5825 

sda ; 2526 if .OFF_SET_CNT C.CNT] geq 14 then PRINTB (FMT_13, .CNT, (.OFF_SET_CNT C.CNTJ)); 

10981 ; 5828 ‘PRINT NIBBLE POSITION AND COUNT 

10982 ; 5829 end; 

10983 ; 5830 

10984 ; 5831 DODU_FLG = ONE; 

10985 ; 5832 end; 

10986 ; 5833 

10987 : 5834 if .DODU_FLG IS_SET ‘DROP THIS UNIT IF DODU_FLG SET 

10988 ; 5835 then 

10989 ; 5836 bogie 

10990 ; 5837 DOU (.ML_LUN); 

10991 ; 5838 DOCLN; 

10992 ; 5839 end; 

10993 ; 5840 

10994 ; 5841 ENDTST: 

10998 

11002 037474 004167 144360 $121: JSR R1,$SAVES ; 5697 
11003 037500 162706 000030 SUB #30,SP 

11004 037 152777 000040 152226 B1SB #40, aML.REG+40 3 5738 
11005 037512 016705 152452 MOV ML .DUT RS 

11006 037516 042705 177770 BIC #177770,R5 

11007 ZML4 22-Oct-1980 10:47:44 TOPS 
11008 ; 22-Oct-1980 10:45:32 PA:< 
11009 

11010 037522 142777 000007 152210 BiCcB #7, QML .REG+40 

11011 037530 150577 152204 B1SB R5,aML.REG*40 

11012 037534 005066 000002 CLR 2(SP) : DODU.FLG 5741 
11013 037540 152777 000040 152252 B1SB #40, aML.REG*+120 : 5742 
11014 037546 005002 CLR > CHK.SUM.ERR 5743 
11015 037550 012701 000016 1$: MOV #16,R1 : 5746 


0. 3 
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HARDWARD TEST SECTION 


| 
ON 
11016 037554 060601 ADD —s SPR 
| 11017 037556 060201 A R2.R1 
11018 037560 105011 CLRB (Ri) 
11019 037562 005202 INC R2 
11020 037564 020227 000011 CMP R2,#11 
11021 037570 003767 BLE 1$ 
11022 037572 005005 CLR 
11023 037574 005066 000010 2$: CLR 10(SP) 
11024 037600 010566 000006 MOV RS ,6(SP) 
11025 037604 005004 CLR Rd 
11026 037606 005066 000004 3$: CLR 4(SP) 
11027 037612 005016 CLR (SP) 
11028 037614 016477 000006 152156 MOV 6(SP),aML.REG+100 
11029 037622 012701 000001 MOV #1,R1 
11030 037626 001411 4$: BEQ 7$ 
11031 037630 016702 142262 MOV LS$DLY,R2 
11032 037634 001404 BEQ 6$ 
11033 037636 005066 000014 5$: CLR 14(SP) 
11034 037642 005302 DEC R2 
11035 037644 001374 BNE 5$ 
11036 037646 005301 6$ DEC R1 
11037 037650 000766 BR 4$ 
11038 037652 017766 152252 000012 7s: MOV ML .REG+230,12(SP) 
11039 037660 005002 CLR R2 
11040 037662 010201 8$: MOV R2,R1 
11041 037664 006201 ASR R1 
11042 037666 006201 ASR R1 
11043 037670 006201 ASR R1 
11044 037672 012700 000012 MOV #12,R0 
11045 037676 060600 ADD SP,RO 
11046 037700 060001 ADD RO,R1 
11047 037702 010146 MOV RI.-(SP) 
11048 037704 010246 MOV 
11049 037706 042716 177770 BIC Re AO. (SP) 
11050 037712 012746 000001 MOV #1,-(SP) 
11051 037716 005046 CLR -(§P) 
11052 037720 004767 143156 JSR PC,BLEGi2 
11053 037724 062706 000010 ADD #10,SP 
11054 037730 005300 DEC RO 
11055 037732 001002 BNE 9$ 
11056 037734 005266 000004 INC 4 (SP) 
11057 037740 005202 9$: INC R2 
11058 037742 020227 000011 CMP R2,#11 
11059 037746 003745 BLE 8$ 
11060 037750 016603 000012 MOV 12(SP),R3 
11061 037754 006203 ASR R3 
11062 ML4 
11063 3 
11064 
11065 037756 006203 ASR R3 
11066 037760 000303 SWAB 
11067 037762 042703 177770 BIC #177770,R3 
11068 037766 132766 000040 000013 BITB #40,13(SP) 
11069 037774 001401 BEQ 10$ 
11070 037776 005203 INC R3 
11071 04 132766 000100 000013 10$: ®BITB #100,13(SP) 
| 11072 040006 001401 BEQ 11$ 
| 
| 
| 


SEQ 0237 
OFF.SET.CNT,* 
CNT, 
CNT 5745 
CNT,* 
ADRS.CNT 


ROW. ORED.COL 
aeice CNT ,PROM.ADRS 


TWICE 
BAD. ey CNT 


* ,SSTMP2 


; *,$STMP1 


$STMP 
$STMP1 


SSTMP2 


R.C.SAV,* 


BIT.CNT,* 


BAD.NIB.CNT 
BIT.CNT 
BIT.CNT,* 


. SAV, CHK. SUM 
. SUM 


22-Oct-1980 10:4 
22-Oct-1980 10:4 


we 
Lae 


CHK. SUM 
CHK . SUM 
*,CHK.SUM 
*,R.C.SAV+1 


; CHK.SUM 


# ,R.C.SAV+1 


PUPP PPA 
NNN NN NWN 
DAA AAI 
@NOWW—Oo 


5761 


5765 


TOPS 


PA:< 


5767 


5769 





r - _ 
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|HARDWARD TEST SECTION SEQ 0238 
' 41073 040010 005203 INC R3 : CHK. SUM 
| 11074 040012 005002 11$: CLR R2 : ) 5771 
11075 040014 105766 000013 TSTB ss: 1 3( SP) * R.C.SAV#I 
11076 040020 100002 BPL 12$ 
11077 040022 005202 INC R2 
11078 040024 005203 INC R3 > CHK. SUM 
11079 040026 006002 12$: ROR R2 : 5773 
11080 040030 103004 BCC 13$ 
11081 040032 026603 000004 CMP 4(SP),R3 ; BAD.NIB.CNT,CHK.SUM 5777 
11082 040036 002006 BGE 15$ 
11083 040040 000403 BR 14$ 
11084 040042 026603 000004 13$: CMP 4(SP),R3 ; BAD.NIB.CNT,CHK.SUM 5783 
11085 040046 001402 BEQ 15$ 
11086 040050 012716 000001 14$: MOV #1, (SP) : #,ERR.FLG 
11087 040054 021627 000001 15$: CMP (SP) a + ERR.FLG,* 5787 
11088 040060 001044 BNE 16$ 
11089 040062 104455 TRAP = 55 5790 
11090 040064 000106 .WORD 106 
11091 040066 007622 “WORD INTER 
11092 040070 000000 “WORD 0 
11093 040072 012746 007030 MOV #FNC.6,-(SP) : 5791 
11094 040076 012746 006220 MOV #WRD.35,-(SP) 
11095 040102 012746 006324 MOV #WRD.45,-(SP) 
11096 040106 012746 005760 MOV #WRD.12,-(SP) 
11097 040112 012746 005740 MOV #WRD.10,-(SP) 
11098 040116 012746 007242 MOV #FNC.21,-(SP) 
11099 040122 012746 005432 MOV #SIX.FMT,-(SP) 
11100 040126 012746 000007 MOV #7,-(SP) 
11101 040132 010600 MOV SP.RO : SP,* 
11102 040134 104414 TRAP 14 
11103 040136 016616 000032 MOV 32(SP), (SP) : R.C.SAV,* 5792 
11104 040142 010346 MOV R3,-(SP) : CHK.SUM.* 
11105 040144 012746 004634 MOV #FMT.10,-(SP) 
11106 040150 012746 000003 MOV #3,-(SP) 
11107 040154 010600 MOV SP RO : SP,* 
11108 040156 104414 TRAP ‘14 
11109 040160 012766 000001 000030 MOV #1,30(SP) : *,DODU.FLG 5793 
11110 040166 062706 000026 ADD #26,SP : 5789 
11111 040172 056666 000012 000010 16$: BIS 12(SP),10(SP) ; R.C.SAV,ROW.ORED.COL 5796 
11112 040200 052766 002000 000006 BIS #2000,6(SP) : *-PROM.ADRS 5797 
11113 040206 005204 INC R4 : TWICE 5753 
11114 040210 020427 000001 CMP RG, #1 : TWICE,* 
11115 040214 003002 BGT 17$ 
11116 040216 000167 177364 JMP 3$ 
11117 ZML4 22-0ct-1980 10:47:44 TOPS 
11118 : 22-Oct-1980 10:45:32 PA:< 
11120 040222 005002 17$: CLR R2 : INDEX 5800 
11121 040224 010201 18$: MOV R2,R1 : INDEX,* 5802 
11122 040226 006201 ASR R1 
11123 040230 006201 ASR R1 
11124 040232 006201 ASR R1 
11125 040234 012700 000010 MOV #10,R0 
11126 040240 960600 ADD SP,RO ; ROW.ORED.COL,* 
11127 040242 060001 ADD RO.R1 
11128 040244 010146 MOV R1,-(SP) 
11129 040246 010246 MOV R2.-(SP) : INDEX,* 
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19$: 


21$: 


228: 


238: 


#177770, (SP) 
#1 ,=(SP) 


- (SP) 
PC BL$GT2 
#10,SP 


16 


23 

#WRD.40,-(SP) 
#WRD.42,-(SP) 
#WRD.51,-(SP) 
#WRD.46,-(SP) 
#WRD.54,-(SP) 


#WRD.55,-(SP) 
#SIX.FMT,-(SP) 
#7,-(SP) 

SP,RO 


14 
(SP)+,(SP)+ 
26% 


#WRD.40,-(SP) 
#WRD.42,-(SP) 
#WRD.47,-(SP) 
#WRD.46,-(SP) 
#FOR.FMT,-(SP) 


SEQ 0239 
; OFF .SET.CNT,* 
; INDEX,* 
; INDEX 5800 
; INDEX,* 
; ADRS.CNT 5748 
; ADRS.CNT,* 
; CNT.14.BAD 5806 
; CNT 5808 
: 5810 
; OFF.SET.CNT,* 
- CNT,® 
; CNT.14.BAD 
; CNT 5808 
; CNT,* 
; CNT.14.BAD 5812 
5815 
: CNT.14.BAD,* 5817 
5819 
22-Oct-1980 10:47:44 TOPS 
22-Oct-1980 10:45:32 PA:< 
; SP,* 
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EST MACRO M1113 23-OCT-80 09:11 PAGE 239-4 


CZMLAAO ML=-11 LOGIC T 
HARDWARD TEST SECTION SEQ 0240 
11187 040506 012746 000005 MOV #5,-(SP) 
~ 11188 040512 010600 MOV SP,RO 3; SP,* 
/ 11189 040514 104414 TRAP 14 
/ 11190 040516 005002 CLR R2 ; CNT 5824 
11191 040520 012701 000032 248: MOV #32,R1 5 5826 
| 11192 040524 060601 ADD SP,R1 ; OFF .SET.CNT,* 
| 11193 040526 060201 ADD R2,R1 ; CNT,* 
/ 11194 040530 121127 000016 CMPB (R1) #16 
11195 040534 163413 BLO 5$ 
11196 040536 005046 CLR -(SP) 
| 11197 040540 111116 MOVB (R1), (SP) 
11198 040542 010246 MOV R2,-(SP) ; CNT,* 
11199 040544 012746 004772 MOV #FMT.13,-(SP) 
11200 040550 012746 000003 MOY #3,-(SP) 
11201 0405 010600 MOV 6 ; 
11202 040556 104414 TRAP 
11203 040560 062706 000010 ADD #10,SP 
11204 040564 005202 25$: INC R2 ; CNT 5824 
11205 040566 020227 000011 CMP R2,#11 ; CNT,* 
11206 040572 003752 BLE 24% 
11207 040574 012766 000001 000016 26$: MOV #1,16(SP) ; *,DODU.FLG 5831 
11208 040602 062706 000014 ADD #14,SP : 5814 
11209 040606 026627 000002 000001 27$: CMP 2(SP),#1 ; DODU.FLG,* 5834 
11210 040614 001004 BNE 28% 
11211 040616 016700 151344 MOV ML .LUN,RO ; 5837 
11212 040622 104451 TRAP 51 
11213 040624 104444 TRAP 44 
11214 040626 062706 000030 28$: ADD #30,SP ; 5697 
AY 3 040632 000207 RTS PC 
11217 ; Routine Size: 304 words 
11218 ; Maximum stack depth per invocation: 
11223 
11224 
11231 
11235 040634 T21:: 
11236 040634 004767 176634 1$: JSR PC,$T21 : 5839 
11237 040640 104466 TRAP 66 
11238 040642 006000 ROR RO 
11239 040644 103773 BLO 1$ 
11240 040646 000207 RTS PC 


CZMLAAO ML-11 LOG 


H 3 
1C TEST MACRO M1113 23-OCT-80 09:11 PAGE 240 
HARDWARD TEST SECTI 


ON SEQ 0241 


11246 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
Et a4 ; 22°0¢t-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (64) 
, 11269 ; 5843! 
11250 ; 5844 |! 
| 11251 ; 5845 BGNTST; 
| 11252 ; 5846 
11253 ; S847 ‘+4 
11254 ; 5848 | TEST NUMBER: TST 22 
11255 ; 5849 | 
11256 : 5850 | TEST NAME: PROM OR FUNCTION TEST 
11257 ; 5851! 
11258 ; $852 | TEST DESCRIPTION: 
11259 ; 5853! 
11260 ; 5854 | TEST THE HARDWARE ORING OF 
11261 ; 5855! THE MEMORY ARRAYS' PROM 
11262 ; 5856 | ROW COLUMN DATA BY: 
11263 ; 5857 | 
11264 ; 5858 S| 1. READING AND STORING 128 
11265 ; 5859 HARDWARE ORED ROW COLUMN 
11266 ; 5860 | DATA. 
11267 ; 5861! 
11268 ; 5862 |! 2. THEN IN PROM DISABLE MODE 
11269 ; 5863 | AND VIA SOFTWARE CONTROL, 
11270 : 5864 READ AND OR PROM ROW 
11271 ; 5865 |! COLUMN DATA AND COMPARE 
11272 ; 5866 AGAINST THE RESPECTIVE 
11273 ; 5867! STORED HARDWARE CRED DATA. 
11274 : 5868 
11275 ; 5869 | IMPLICIT INPUTS: NONE 
11276 : 5870 | 
11277 ;: 5871 | 
11278 : 5872 '- 
11275 ; 5873 
11280 ; 5874 local 
11281 ; 5875 R_BITS, 'PROM ROW DATA 
11282 ; 5876 C"BITS, 'PROM COL DATA 
11283 ; 5877 SU_ORED, ‘SOFTWARE CALCULATED PROM ORED DATA 
11284 ; 5878 HW SAVE, ‘SOFTWARE PROM ORED DATA ‘ 
11285 ; 5879 poBu_ FLG; ‘DROP UNIT FLAG 
11286 ; 5880 
11287 ; 5881 CLR_MBUS; 
11288 ; 5882 DODD FLG = ZERO; 
11289 ; 5883 DAT_BM = ONE; 
11290 : 5884 FIRST_BLK_ XFER (); 'SET UP A FIRST BLOCK XFER 
4 24 3 poe ML_tUNC = write; 'DO A WRITE FUNCTION 
11293 ; 5887 incr PROM_ADRS from 0 to 127 do 'READ AND STORE 128 HARDWARE PROM ORED DATA 
11296 ; 5888 begin 
11295 ; 5889 DELAY (ONE_US) 
11296 ; 5890 Hw OR _TBL [. PROM. ADRS) = .MLPD; 'READ HARDWARE PROM ORED DATA 
11297 : 5891 DAT_CCK = ONE; ‘CLOCK NEXT ONE OUT 
11298 ; 5892 end; 
11299 ; 5893 
| 11300 ; 5894 CLR_MBUS; 


ee. 
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HARDWARD TEST SECTION SEQ 0242 
/ 11302 ;ML4 22-' ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
at s'ty ; c2-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (64) 
41.909 : 3895 PROM_DIS = ONE; ‘SET PROM DISABLE MODE 
ie : 2897 incr Ra as ADRS from 0 to 127 do ‘CALCULATE 128 SW ORED DATA & COMPARE TO HW TABLE 
11309 ; 5899 oy el .PROM_ADRS; ‘LOADING MLPA INITIATES A PROM READ 
11310 ; 5900 DELAY (ONE_US); 
11311 ; 5901 R BITS = “ALPD: 'SAVE ROW DATA 
11312 ; 5902 MCPA = .PROM ADRS or %0'2000'; ‘ENABLE COLUMN DATA ADRS 
11313; 5903 DELAY (ONE_US); 
11314 ; 5904 C BITS = .ALPD: 'SAVE COL DATA 
11315 ; 5905 S0_ORED = .R BITS or ‘CALCULATE SOFTWARE ORED 
He : as HW-SAVE = .H@_OR_TBL C. “BRON ARs); 'GET RESPECTIVE HARDWARE ORED 
11318 ;: 5908 if (.HW_SAVE<O, 9>) neq (.SW_ORED<0, 9>) ‘COMPARE SW & HW ORED 
11319 : 5909 hen 
11320 ; 5910 begin ‘IF NEQ THEN ERROR 
11321 ; 5911 ERRDF (76, ARR_DAT, 
11322 ; $912 PRINTB (FOR_FMT, WRD OF WRD_36, WRD_19, PHR_4 
11323 ; 5913 PRINTB (FMT~2, .SW_ORED<O, 95, .HW_SAVE<O, 95, . i SW_ORED<O, 9> xor .HW_SAVE<O, 9>)); 
11324 ; 5914 DODU_FLG = ONE; 
11325 ; 5915 end; 
11326 ; 5916 
11327 ; 5917 end; 
11328 ; 5918 
11329 ; 5919 if .DODU_FLG IS_SET ‘DROP THIS UNIT IF DODU FLG IS_SET 
11330 ; 5920 then 
11331 ; 5921 begin 
11332 ; 5922 DODU (.ML_LUN); 
11333 ; 5923 DOCLN; 
11334 ; 5924 end; 
11535 ; 5925 
Ht te : 5926 ENDTST; 
11344 040650 004167 143204 $122: JSR R1,$SAVE5 ; 5841 
11345 040654 162706 000010 SUB #10,SP 
11346 040660 152777 000040 151052 BISB #40,aML.REG+40 ; 5879 
11347 040666 016705 151276 MOV L.DUT,RS 
11348 040672 042 177770 BIC #177770, RS 
11349 040676 2777 000007 151034 BICB #7 AML .REG+40 
11350 040704 150577 151030 B1S8 R5,@ML.REG*+40 
11351 040710 005066 000004 CLR 4(S ; DODU.FLG 5882 
11352 040714 152777 000010 151076 BISB #10,aML.REG+120 : 5883 
11353 040722 004767 151572 JSR PC .FIRST.BLK.XFER : 5884 
11354 040726 142777 000077 150744 BICB =: #77 ,aML.REG : 5885 
11355 040734 152777 000061 150736 BISB #61,aML.REG 
11356 ZML4 22-Oct-1980 10:47:44 TOPS 
AF 24 5 22-Oct-1980 10:45:32 PA:< 
1 
11359 040742 0050C° CLR R2 ; PROM.ADRS 5887 
11360 040744 0127u1 000001 1$: MOV #i,R1 : *,$STMP2 5889 
11361 040750 001411 2$: BEQ 5$ 
11362 040752 016703 141140 MOV LSDLY,R3 > *, SSTMP1 
11363 040756 001404 BEQ 4$ 
11364 040760 005066 000006 3$: CLR 6(SP) : SSTMP 
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007722 
151004 


150706 


150670 
150736 


000002 


4$: 
5$: 


QML .REG*230,HW.OR.TBL(R3) 


#20,,aML .REG*120 
R2 #177 
#40,aML.REG+40 
ML.DUT,RS 
#177770,R5 

#7, AML .REG+40 
RS aML .REG+40 
#40 ,aWL .REG*120 
R1,aML.REG+100 
#1.R2 


’ 


10$ 
LSOLY,R3 
9$ 


QML .REG+230,2(SP) 
R1,R3 


#2000,R3 
R3.aMt .REG* 100 


1 

QML .REG+230, (SP) 
2(SP),R5 

(SP) ,R5 

R1,R 

R3 


HW .OR.TBL(R3) ,R4 
RS.R2 

#177000,R2 

R4,R 

#177000,R3 

R3,R2 

15$ 

55 


$STMP1 
SSTMP2 
PROM.ADRS,* 


PROM.ADRS 
PROM.ADRS,* 


PROM. ADRS 
PROM.ADRS,* 
*,SS$TMP2 

* ,SSTMP1 


$$TMP 
$STMP1 


$STMP2 
*,R.BITS 
PROM.ADRS,* 
* ,S$TMP2 


* ,SSTMP1 


$STMP 
SSTMP1 


SSTMP2 
*,C.BITS 


R.BITS,SW.ORED 
C.BITS,SW.ORED 


PROM.ADRS,* 


* , HW. SAVE 
SW.ORED,* 


HW.SAVE,* 


SEQ 0243 
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CZMLAAO ML-11 LOGIC TEST 
HARDWARD TEST SECTION 
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000207 
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000024 
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000030 


000001 


15$: 


16$: 


; Routine Size: 
; Maximum stack 


T22:: 
1$: 


114 
ARR.DAT 
0 


#PHR.4,-(SP) 
#WRD.19,-(SP) 


R4.=(SP) 
#177000, (SP) 
R5,-(SP) 
#177000, (SP) 
#FMT.2,-(SP) 
#4 ,< (SP) 


. 


Te 
#1,30(SP) 
& 


R1 
R1,#177 
6$ 
4(SP),#1 
16% 
ML.LUN,RO 
51 

44 

#10,SP 

PC 


176 words 


depth per invocation: 


20 words 


SP,¢ 


HW.SAVE,* 
SW.ORED,* 


3 HW.SAVE,* 


SW.ORED,* 


SP,* 
* DODU.FLG 


PROM.ADRS 
PROM.ADRS,* 


DODU.FLG,* 


SEQ 0244 


5912 


5913 


5924 


[ma 


‘CZMLAAO ML=11 LOGIC TEST 
|HARDWARD TEST SECTION 
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! TEST NAME: 


! IMPLICIT INPUTS: 


DODU_FLG = 
PR 


do 


MACRO M1113 23-OCT-80 09:11 


BGNTST: 


++ 


TEST NUMBER: TST 23 
UV ADRS ERROR TEST 
TEST DESCRIPTION: 


TEST THE DETECTION OF UV ADRS 
ERRORS BY: 


1. 
FROM 0 TO %0°177777' AND 


PATTERN IS GOOD/OR BA 
PROM DATA. 


VIA DAT_DM AND PROM R/W 
MODES PRESENT GENERATED 
PROM DATA TO THE UV ADRS 
ERR PROM. 


TEST ERROR CONDITIONS FOR 
CORRECT RESPONCE TO GOOD/ 
OR BAD PROM DATA. 


NONE 


local 


A: bitvector (16), 


ZERO; 
OM~DATA = -1; 


poate 
PROM DATA = .PROM_DATA + 1; 
BGNSOB; 


CLR_MBUS; 
ERR_FLG = ZERO; 


oe 
PAGE 242 


22-0ct-1 0:47: TOPS=20 Bliss-16 V2(2 
22-0ct-1 0:45: PA: <NEALE>BL2ML4.BLI. 


GENERATING PROM DATA PATTERN 
DETERMINE WHETHER oe 


'DROP UNIT FLAG 

'STORES PROM DATA CHECK SUM BITS 
'STORES PROM DATA 

‘STORES SUM OF PROM DATA BITS <9:0> 
‘TEMPORARY STORAGE 

‘ERROR FLAG 

'SETS WHEN PROM DATA BIT 15 IS A ONE 


'TEST ALL POSSIBLE PROM DATA COMBINATIONS 
INCREMENT PROM_DATA 


06 
2 


) 
(65) 


SEQ 0245 


rc -- 
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|HARDWARD TEST SECTION SEQ 0246 


11542 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
11543 ; 22-Oct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (65) 


5980 LOW_CNT = ZEROES; 
5981 HIGA_CNT = ZEROES; 
5982 GTR_FLG = ZERO; 
5984 incr BIT_CNT from 0 to 9 do 'COUNT PROM DATA BITS <9:0> 
5986 if .PROM_DATA C.BIT_CNT] IS_SET then LOW_CNT = .LOW_CNT + 1; 
5988 HIGH_CNT = .PROM_DATA<10, 3>; 'GET PROM DATA CHECK SUM BITS 
5990 if .PROM_DATA [13] IS_SET then HIGH_CNT = .HIGH_CNT + 1; ‘ADD IN BIT 13 IF SET 
5992 if .PROM_DATA [14] IS_SET then HIGH_CNT = .HIGH_CNT + 1; !ADD IN BIT 14 IF SET 
5994 if .PROM_DATA [15] IS_SET then HIGH_CNT = .HIGH_CNT + 1; ‘ADD IN BIT 15 IF SET 
5996 if .PROM_DATA (15) IS_SET then GTR_FLG = ONE; 'SET FLAG IF BIT 15 IS SET 
5998 DAT_DM_XFER (); 'SET UP A DATA DIAG MODE XFERR 
5999 PROM_RO = ONE; 'SET PROM READ WRITE 
6000 MLPD = .PROM_DATA; 'LOAD MLPD WITH PROM_DATA 
6001 MLCS1 = write; 'DO A WRITE FUNCTION 
6002 DAT_CLK = ONE; 'CLOCK PROM DATA INTG UV PROM 
6004 a -UNS IS_SET 'SEE IF PROM DATA CAUSED A UV ERROR 
en 
begin 
6008 +i -GTR_FLG IS_SET 'UNS IS_SET. SEE If GTR FLG IS SET 
then 
6010 nt hy 
TEMP = .PROM_DATA; ‘LOAD TEMP WITH PROM DATA 
6012 TEMP = .TEMP and %0'162000'; 'SEE IF THESE BITS ARE SET IN PROM DATA 
6014 if .TEMP eql %0°162000' 'THESE BITS SET AUTOMATICALLY CAUSE A UNS 
6015 then 
6016 begin 
ont +4 -LOW_CNT geq .HIGH_CNT 'LOW<9:0> SHOULD BE ISS THAN THE HIGH<15:10> IF GTR FLG IS S 
then 

pease ‘ERROR IF LOW<9:0> IS GE@ HIGH<15:10> 
6021 ERRDF (72, ARR_DAT, 0); 
6022 PRINTB (SIX FMT, WRD_34, PHR_5, WRD_32, WRD_6, WRD_33, WRD_24); 


6023 ERR_FLG = ONE; 
6024 end; 
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‘CZMLAAO ML-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 244 
|HARDWARD TEST SECTION 
11598 ;ML4 22-0ct-19S9 10:47:44 TOPS=20 Bliss-16 V2(206) 
sane ; 22-0ct-1980 10:45:32 P*:<NEALE>BL2ML4.BL1.2 (65) 
11601 ; 6032 if .LOW_CNT eql .HIGH_CNT 'LOW<9:0> SHOULD BE NEQ HIGH<15:10> 
| 11602 ; 6033 then 
11603 ; 6034 poate ‘ERROR IF EQL 
| 11604 : 6035 ERRDF (73, ARR_DAT, 0); 
41605 ; 6036 PRINTB (SIX _FMT, WRD_34, PHR_5, WRD_32, WRD_6, WRD_33, WRD_24); 
11606 ; 6037 ERR_FLG = ONE; 
11607 ; 6038 end; 
11608 ; 6039 
11609 ; 6040 end 
11610 ; 6041 
11611 ; 6042 end 
11612 ; 6043 else 'UNS WAS NOT SET 
11613 ; 6044 begin 
11614 ; 6045 
11615 ; 6046 if .GTR_FLG IS_SET ‘SEE IF STR FLG IS_SET 
11616 ; 6047 then 
11617 ; 6048 poate 
11618 ; 6049 TEMP = .PROM_DATA; 'LOAD TEMP WITH PROM DATA 
ho ; E34 TEMP = .TEMP and %0'162000'; 'SEE IF THESE BITS ARE SET IN PROM DATA 
11621 ; 6052 if .TEMP neq %0'162000' ‘IF THESE BITS ARE SET THEN UNS SHOULD BE SET 
11622 ; 6053 then 
11623 ; 6054 begin 'ERROR UNS IS NOT SET 
11624 ; 6055 ERRDF (74, ARR_DAT, 0): 
11625 ; 6056 PRINTB (SIX FMT, WRD_34, PHR_1, WRD_32, WRD_5S, WRD_33, WRD_24); 
11626 ; 6057 ERR_FLG = ONE; 
11627 ; 6058 end 
11628 ; 6059 else 'BITS 162000 ARE NOT SET 
11629 ; 6060 begin 
11030 ; 6061 
11631 ; 6062 if .LOW_CNT lss .HIGH_CNT 'LOW<9:0> SHOULD BE GEQ HIGH<15:10> 
11632 ; 6063 then 
11633 ; 6064 begin ‘ERROR IF LSS 
11634 ; 6065 ERRDF (75, ARR_DAT, 0); . 
11635 ; 6066 PRINTB (SIX_FMT, WRD_34, PHR_1, WRD_32, WRD_5, WRD_33, WRD_24); 
11636 ; 6067 ERR_FLG = ONE; 
11637 ; 6068 end; 
11638 ; 6069 
11639 ; 6070 end 
11640 ; 6071 
11641 ; 6072 end - 
11642 ; 6073 else 'GTR_FLG IS NOT SET 
11643 ; 6074 begin 
11644 ; 6075 
11645 ; 6076 if .LOW_CNT neq .HIGH_CNT 'LOW<9:0> SHOULD EQL HIGH<15:10> 
11646 ; 6077 then 
11647 ; 6078 begin ‘ERROR IF NEQ 
11648 ; 6079 ERRDF (108, ARR_DAT, 0); 
11649 ; 6080 PRINTB (SIX_FMT, WRD_34, PHR_1, WRD_32, WRD_5S, WRD_33, WRD_24); 
11650 ; 6081 ERR_FLG = ONE; 
11651 ; 6082 end 
11652 ; 6083 


SEQ 0247 
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HARDWARD TEST SECTION SEQ 0248 
| 11654 ;ML4 22-Oct-1980 10:47:44  TOPS-20 Bliss-16 v2(206) 
ieee 3 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (65) 
11657 ; 6084 end 
11658 ; 6085 
11659 ; 6086 end; 
11660 ; 6087 
11661 ; 6088 if .ERR_FLG IS_SET 'SEE IF ERROR FLG GOT SET 
11662 ; 6089 then 
11663 ; 6090 borin ‘PRINT FAILING PROM_DATA AND SET DODU_FLG 
11664 ; 6091 PRINTB (FMT_7, .PROM_DATA); 
11665 ; 6092 DODU_FLG = ONE; 
11666 ; 6093 end; 
11667 ; 6094 
11668 ; 609 ENDSUB; 
11669 ; 6096 end 
‘sere ; 344 until .PROM_DATA eql %0'177777'; 'TRY ALL BIT COMBINATIONS 
11672 ; 6099 if .DODU_FLG IS_SET ‘DROP THIS UNIT IF DODU_FLG IS SET 
11673 ; 6100 then 
11674 ; 6101 begin 
11675 ; 6102 DObU (.ML_LUN); 
11676 ; 6103 DOCLN; 
11677 ; 6104 end; 
11678 ; 6105 
ier 3 6106 ENDTST; 
11687 041424 004167 142430 $123: JSR R1,$SAVE5 : 5926 
11688 041430 162706 000012 SUB #12,SP 
11689 041434 005066 000006 CLR 6(SP) ; DODU.FLG 5971 
11690 041440 012766 177777 000010 MOV #-1,10(SP) : *,PROM.DATA 5972 
11691 041446 005266 000010 1$: INC 10(SP) : PROM.DATA 5976 
11092 041452 104402 2$: TRAP 2 
11693 041454 152777 000040 150256 B1SB #40,aML.REG+40 i 5977 
11694 041462 016705 150502 MOV ML .DUT,R5 
11695 041466 042705 177770 BIC #177770,R5 
11696 041472 142777 000007 150240 BICB #7,aML.REG+40 
11697 041500 150577 150234 BISB R5,aML .REG+40 
11698 041504 005001 CLR R1 ; ERR.FLG 5979 
11699 041506 005066 000002 CLR 2(SP) > LOW.CNT 5980 
11700 041512 005003 CLR R3 : HIGH.CNT 5981 
11701 041514 000004 CLR 4(SP) : GTR.FLG 5982 
11702 041520 005005 CLR RS : BIT.CNT 5984 
11703 041522 010504 3$: MOV R5,R4 ; BIT.CNT,* 5986 
11704 041524 006204 ASR R4 
11705 041526 006204 ASR R4 
11706 041530 006204 ASR R4 
11707 041532 012702 000010 MOV #10,R2 


r-- —— = _ ——— 


‘CZMLAAO ML-11 LOG 


eonoune TEST SEC 


11709 

11710 

11711 

11712 04153 

11713 041540 060 
11714 04154 

11715 04154 

11716 04154 

11717 04155 

11718 04155 

11719 04156 

11720 0415 

11721 0415 

11722 041572 001002 
11723 041574 005266 
11724 041600 005205 
11725 041602 020527 
11726 041606 003745 
11727 041610 

11728 041614 006203 
11729 041616 006203 
11730 041620 000303 
11731 041622 042703 
11732 041626 132766 
11733 041634 001401 
11734 041636 005203 
11735 041640 132766 
11736 041646 001401 
11737 041650 005203 
11738 041652 005005 
11739 041654 105766 
11740 041660 100002 
11741 041662 005205 
11742 041664 005203 
11743 041666 0060 
11744 041670 103003 
11745 041672 012766 
11746 041700 004767 
11747 041704 

11748 04171 

11749 041716 0 
11750 04172 

11751 041730 15 
11752 0417 

11753 04174 

11754 04174 

11755 041754 00 
11756 041756 0 
11757 041760 04 
11758 041764 0 
11759 041770 00 
11760 041772 02 
11761 041776 00 
11762 042000 00 
11763 042004 10 


06060 


SONA fFuvoe 
oO 
= 
~m 
~s 
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~“ 

oF 
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177770 
000001 


141316 
000010 
000002 
000011 
000010 


177770 
000040 


000100 


000011 


000001 


040000 
000004 
015777 
162000 
000002 
000422 
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000011 


000011 


000004 
150106 
147750 
150062 
150014 


000001 


7ML4 


4$: 


5$: 


6$: 


7$: 


8$: 


9$: 
10$: 


10(SP),R3 
R3 
R33 


R3 
#177770,R3 
#40,11 (SP) 
5$ 


R3 
prea 


#1,4(SP) 
PC DAT.OM.XFER 
#100, aML .REG+120 
10(SP),R 

RS, aML .REG+230 
#61, aML.REG 

#20. aML.REG+120 
#40000, aML .REG+60 


12$ 
4(SP),#1 
11$ 

RS, (SP) 
#15777, (SP) 
(SP) ,#-16000 
9$ 
2(SP),R3 
10$ 

16$ 

55 


Be Be 


22-0ct-1980 
22-0c¢t-1980 


PROM.DATA,* 


; BIT.CNT,* 


LOW. CNT 
BIT.CNT 
BIT.CNT,* 


; PROM.DATA,HIGH.CNT 
; HIGH. CNT 

; HIGH.CNT 

; HIGH.CNT 

; *,HIGH.CNI 

; *,PROM.DATA+1 


; HIGH.CNT 
; *,PROM.DATA+1 


; HIGH.CNT 
; PROM.DATA+1 


; HIGH.CNT 
; *,GTR.FLG 


+ PROM.DATA,* 


; GTR.FLG,* 


*, TEMP 
*, TEMP 
TEMP,* 


; LOW.CNT,HIGH.CNT 


SEQ 0249 


TOPS 
PA:< 


5984 


5988 
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‘HARDWARD TEST SECT 
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Orn 


CT 
ION 


012746 
46 


EST 


006104 


000007 


000002 


006104 


000007 


000004 


015777 
162000 


006104 


000007 


000001 


11$: 


12$: 
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110 
ARR.DAT 
0 


#WRD.24,-(SP) 
#WRD.33,-(SP) 


#7,-(SP) 
RO 
14 

15$ 
2(SP),R3 
16$ 

55 

111 
ARR.DAT 


#WRD.24,-(SP) 
#WRO.33,-(SP) 


#7,-(SP) 


14 
15$ 

4(SP),#1 

14$ 

RS, (SP) 
#15777, (SP) 
(SP) ,#-16000 
13$ 

55 

112 

ARR.DAT 

0 


#WRD.24,-(SP) 


#SIX.FMT,-(SP) 


#7,-(SP) 
RO 
14 

15$ 


22-Oct-19 
22-0ct-19 


. SP,* 


LOW. CNT,HIGH.CNT 


. SP,* 


: GTR.FLG,* 
 #, TEMP 


; *, TEMP 
; TEMP,* 


: .* 


80 10 
80 10 


74 
74 


SEQ 0250 


244 
:32 


TOPS 
PA:< 


6022 


6023 
6032 


6035 


6036 


605? 
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HARDWARD TEST SECTION SEQ 0251 
/ 11821 sML4 22-0ct-1980 10:47:44 TOPS 
11858 : 22-0ct-1980 10:45:32 PA:< 
| 11824 042250 026603 000002 13$: CMP 2($P),R3 : LOW. CNT, HIGH. CNT 6062 
| 11825 042254 002064 BGE 16$ 
11826 042256 104455 TRAP = 55 : 6065 
11827 042260 000113 .WORD 113 
11828 042262 007534 “WORD ARR.DAT 
11829 042264 000000 “WORD 
11830 042266 012746 006104 MOV #WRD.24,-(SP) : 6066 
11831 042272 012746 006206 MOV #WRD.33,-(SP) 
11832 042276 012746 005662 MOV #WRD.5,-(SP) 
11833 042302 012746 006200 MOV #WRD.32,-(SP) 
11834 042306 012746 006542 MOV #PHR.1,-(SP 
11835 042312 012746 006212 MOV #WRD.34,-(SP) 
11836 042316 012746 005432 MOV #SIX.FMT,-(SP) 
11837 042322 012746 000007 MOV #7,-(SP) 
11838 042326 010600 MOV SP.RO : SP,e 
11839 042330 104414 TRAP —s'14 
11840 042332 000431 BR 15$ : 6067 
11841 042334 026603 000002 14$: CMP 2(SP),R3 * LOW. CNT,HIGH.CNT 6076 
11842 042340 001432 BEQ 16$ 
11843 042342 104455 TRAP 55 ; 6079 
11844 042344 000154 .WORD 154 
11845 042346 007534 "WORD  ARR.DAT 
11846 042350 000000 “WORD 0 
11847 042352 012746 006104 MOV #WRD.24,-(SP) ; 6080 
11848 042356 012746 006206 MOV #WRD.33,-(SP) 
11849 042362 012746 005662 MOV #WRD.5,-(SP 
11850 042366 612746 006200 MOV #WRD.32,-(SP) 
11851 042372 012746 006542 MOV #PHR.1,-(SP) 
11852 042376 012746 006212 MOV #WRD.34,-(SP) 
11853 042402 012746 005432 MOV #SIX.FMT,-(SP) 
11854 042406 012746 000007 MOV #7,-(SP) 
11855 042412 010600 MOV SP,RO : SP,* 
11856 042414 104414 TRAP ‘14 
11857 042416 012701 000001 15$: MOV #1,R1 : *, ERR.FLG 6081 
11858 042422 062706 000020 ADD #20,SP : 6078 
11859 042426 020127 000001 16$: CMP R1,#1 > ERR.FLG,* 6088 
11860 042432 001014 BNE 17% 
11861 042434 010546 MOV RS,-(SP) : 6091 
11862 042436 012746 004520 MOV #FMT.7,-(SP) 
11863 042442 012746 000002 MOV #2,-(SP) 
11864 042446 010600 MOV SP,RO : SP.* 
11865 042450 104414 TRAP ‘14 
11866 042452 012766 000001 000014 MOV #1,14(SP) : *,DODU.FLG 6092 
11867 042460 062706 000006 ADD #6,SP : 6090 
11868 042464 104467 17$: TRAP 67 : 6093 
11869 042466 000 ROR RO 
| 11870 042470 103002 BHIS 18% 
11871 04247 167 176754 JMP 2$ 
11872 042476 005205 18$: INC R5 : 6097 
11873 042500 001402 BEQ 19$ 
11874 042502 000167 176740 JMP 1$ 
11875 042506 026627 000006 000001 19%: CMP 6(SP),#1 : DODU.FLG,* 6099 
| 
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C TEST 
l 


062706 
000207 


004767 


000207 


6107 


147444 


000012 


176664 


! <BLF /PAGE> 


208: ADD 


; Routine Size: 
; Maximum stack 


T23:: 
1$: JSR 
TRAP 
ROR 
BLO 
RTS 


; Routine Size: ; ; 
; Maximum stack depth per invocation: 


292 words 


depth per invocation: 


6 words 


19 words 


0 words 


22-0 t-198 
22-0 t-198 


0 
0 


1 
1 


0 
0 


47:44 
7:45:32 


SEQ 0252 
TOPS 
PA:< 
6102 


5926 


6104 
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HARDWARD TEST SECTION SEQ 0253 
11919 ;ML4 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
TEST ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (66) 
11922 ; 6108 |! 

11923 ; 6109! 

11924 ; 6110 BGNTST; 

11925 ;: 6111 

11926 ; 6112 ‘'+ 

11927 ; 6113! TEST NUMBER: TST 24 

11928 ; 6114! 

11929 ; 6115 | TEST NAME: INITIAL ARRAY TEST 

11930 ; 6116! 

11931 ; 6117 | TEST DESCRIPTION: 

11932 ; 6118 | 

11933 ; 6119! DUE TO THE NATURE OF THE DEVICE 

11934 ; 6120 ! THERE EXISTS KNOWN BAD ARRAY 

11935 ; 6121! DATA LOCATIONS. 

11936 ; 6122 ! 

11937 ;: 6123! THEREFORE TO INITIALLY TEST THE ARRAYS' 
11938 ; 6124! TIMING AND CONTROL LOGIC A BAD 

11939 ; 6125 |! NIBBLE THRESHOLD OF 36 BAD NIBBLES 
11940 ; 6126 | OUT OF 100 NIBBLES TESTED WILL BE 

11941 ;: 6127! TOLERATED BEFORE DETERMINING CONTROL 
11942 ; 6128 | LOGIC TO BE IN ERROR. 

11943 ; 6129! 

11944 ; 6130 | THE ARRAYS' ARE INITIALLY TESTED BY: 
11945 ;: 6131! 

11946 ; 6132 | 1. VIA DAT_DM MOD WRITE DATA PATTERNS 
11947 : 6133 OF 1°S AND 0°S TO 5 ARRAY 

11948 ; 6134 WORDS. 

11949 ;: 6135! 

11950 ; 6136! 2. 4 EACH NIBBLE (4 BITS) FOR 

11951 ;: 6137! 1°S AND O'S AND COUNT EACH BAD 
11952 ; 6138 | NIBBLE ENCOUNTERED. 

11953 ; 6139! 

11954 ; 6140 ! 3. IF ACCUMULATED BAD NIBBLES 

11955 ; 6141! EXCEED 36 THEN REPORT AN ERROR. 
11956 ; 6142 | 

11957 ; 6143 ' IMPLICIT INPUTS: NONE 

11958 ; 6144! 

11959 ; 6145 '- 

11960 ; 6146 

11961 ; 6147 local 

11962 ; 6148 TST_PAT, 'TEST PATTERN 
11963 ; 6149 BAD_NIB_CNT, 'NUMBER OF BAD NIBBLES FOUND 
11964 ; 6150 ERR_FLG; ‘ERROR FLAG 
11965 ; 6151 

11966 ; 6152 TST_PAT = ONES; 

11967 ; 6153 BAD_NIB_CNT = ZEROES; 

11968 ; 6154 

11969 ; 6155 incr TWICE from 0 to 1 do ‘REPEAT LOOP TWICE 
11970 ; 6156 egin 

11971 ; 6157 . oe 

11972 ; 6158 

11973 : 6159 mpl a _PAT; 'LOAD TEST PATTERN INTO DIAG REGISTERS 
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CZMLAAO ML=-11 LOGIC | 
ON SEQ 0254 


IC 
HARDWARD TEST SECTI 


11975 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 v2(206) 

BP da ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (66) 
11978 ; 6160 MLD2 = .TST_PAT; 

11979 ; 6161 MLE2 = .TST_PAT; 

11980 ; 6162 DAT_DM = ONE; 'SET DATA DIAG MODE 

11981 ; 6163 FIRST_BLK_XFER (); ‘SET UP A FIRST BLK XFERR 

11982 ; 6164 MLCS1°= write; 'DO A MBUS WRITE FUNCTION 

11983 ; 6165 

11984 ; 6166 incr CNT from 0 to 4 do 'CLOCK 5 WORDS INTO MEMORY 

11985 ; 6167 begin 

11986 ; 6168 DELAY (ONE_US); 

11987 ; 6169 DAT_CLK = ONE; 

11988 ; 6170 end; 

11989 ; 6171 

11990 ; 6172 CLR_MBUS; 

11991 ; 6173 DAT_DM = ONE; 'SET DATA DIAG MODE 

11992 ; 6174 FIRST_BLK_XFER (); 'SET UP A FIRST BLK XFERR 

11993 ; 6175 MLCS1 = read; 'DO A READ FUNCTION 

11994 ; 6176 DELAY (ONE_US); 

11995 ; 6177 

11996 ; 6178 incr ARR_WRD from 0 to 4 do 'READ THE 5 WORD IN MEMORY 

11997 ; 6179 begin 

11998 ; 6180 DAT_CLK = ONE; ‘CLOCK OUT A WORD INTO THF DIAG REGS 

11999 ; 6181 DELAY (ONE_US); 

12000 ; 6182 RD_LNG_WRD; 'READ THE DIAG REGISTERS 

12001 ; 6183 

12002 ; 6184 incr NIB_PTR from 0 to 9 do ‘READ THE 10 NIBBLES IN THE WORD 

12003 ; 6185 bog 

12008 ; 6186 TST_LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG); !COMPARE TST PAT TO NIBBLE UNDER TEST 

12006 ; 6188 if .ERR_FLG IS_SET then BAD_NIB_CNT = .BAD_NIB_CNT + 1; 

12007 ; 6189 

12008 ; 6190 ‘INCREMENT BAD_NIBBLE COUNT IFERR_FLG SET 

12009 ; 6191 end; 

12010 ; 6192 

12011 ; 6193 end; 

12012 ; 6194 

12013 ; 6195 TST_PAT = not .TST_PAT; ‘REPEAT WITH COMPLIMENT TST PAT 

12014 ; 6196 ENDSUB; 

12015 ; 6197 end; 

12016 ; 6198 

12017 ; 6199 if .BAD_NIB_CNT gtr 36 'SEE IF 36 OUT OF THE 100 XFERRED WHERE BAD 

12018 ; 6200 then 

12019 ; 6201 begin ‘ERROR IF GIR 36 

12020 ; 6202 ERRDF (77, ASYNC, 0); 

12021 ; 6203 PRINTB (FIV_FMT, WRD_22, PHR_4, WRD_12, WRD_45, FNC_14); 

12022 ; 6204 DODU (.Mi_LON); 

12023 ; 6205 DOCLN; 

12024 ; 6206 end; 

12025 ; 6207 

12026 ; 6208 ENDTST; 


CZMLAAO ML=11 LOGI 
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12031 

12032 

12033 

12034 

12038 042550 

12039 042554 
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C 1 
ION 


005303 


EST 


141304 
177777 


000040 


000061 
000001 
137226 
000004 


000020 
000004 
000040 


000001 
137110 
000004 


1 4 
MACRO M1113 23-OCT-80 09:11 PAGE 252 


147142 


147124 


147156 
147024 


147104 


147006 


146770 
147036 
146704 


7$: 


8$: 


9$: 


R1,$SAVE5 
ee 


#40,aML.REG+40 
ML.OUT,R4 
#177770,R4 

#7 AML .REG+40 
R4aML .REG+40 
R1.aML.REG+170 
R1.aML.REG+200 
R1.aML .REG+160 
#16, aML.REG+120 
PC, FIRST.BLK.XFER 
#61,aML.REG 


R2 
#1,R3 
6$ 
LSDOLY,R4 
5$ 


& 

#20, aML.REG*+120 
R2 

R2,#6 

2$ 
#40,aML.REG+40 
ML.DUT,R4 
#177770,R4 

#7 AML .REG+40 
R4 aM .REG+40 
#16, aML.REG+120 


PC, FIRST.BLK.XFER 
a7] QM .REG 


10$ 
LSDLY,R4 


*, TST.PAT 
BAD .NIB.CNT 
TWICE 


TST.PAT,* 
TST.PAT,* 
TST.PAT,* 


CNT 
» ,S$STMPZ 


; *, SSTMP1 


; SSTMP 
; SSTMP1 


; SSTMP2 


CNT 
CNT,* 


; *,SSTMP2 


=. 


*, SSTMP1 


SSTMP 
SSTMP1 


SSTMP2 


SEQ 0255 


22-0c¢t-1980 10:47:44 
22-0ct-1980 10:45:32 


6169 
6166 


| tee” 
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| LOGIC 1 
WARDWARD TEST SECTION SEQ 0256 
12086 iML4 22-Oct-1980 10:47:44 TOPS 
| sie th 3 22-0ct-1980 10:45:32 PA:< 
12089 043022 000766 BR 7$ 
12090 043024 005002 10$: CLR R2 : ARR.WRD 6178 
| 12091 043026 152777 000020 146764 11$: BISB #20,aML.REG+120 : 6180 
12092 043034 012703 000001 MOV #1,R3 : *,$STMP2 6181 
12093 043040 001411 12$: BEQ 15 
12094 043042 016704 137050 MOV LSDLY,R4 : *,$STMP1 
12095 043046 001404 BEQ 14$ 
12096 043050 005066 000004 13$: CLR 4 (SP) : $$TMP 
12097 043054 005304 DEC R4 : $$TMP1 
12098 043056 001374 BNE 13$ 
12099 043060 005303 14$ DEC R3 : $$TMP2 
12100 043062 000766 BR 12$ 
12101 043064 017767 147000 144622 15$: MOV @ML.REG+170,01. TEMP 
12102 043072 017767 147002 144616 MOV ML .REG+200,02. TEMP 
12103 043100 017767 146754 144612 MOV ML .REG+160,E2. TEMP 
12104 043106 005004 CLR R4 : NIB.PTR 6184 
12105 043110 010446 16$: MOV R4,-(SP) ; NIB.PTR,* 6186 
12106 043112 010146 MOV R1,-(SP) ; TST.PAT,* 
12107 043114 012746 000010 MOV #10,-(SP) 
12108 043120 060616 ADD SP, (SP) : ERR.FLG,* 
12109 043122 004767 147532 JSR PC,TST.LNG.WRD 
12110 043126 026627 000010 000001 CMP 10(SP) #1 : ERR.FLG,* 6188 
12111 043134 001002 BNE 17$ 
12112 043136 005266 000006 INC 6 (SP) ; BAD.NIB.CNT 
12113 043142 062706 000006 17$: ADD #6,SP : 6185 
12114 043146 005204 INC R4 ; NIB.PTR 6184 
12115 043150 020427 000011 CMP RG, #11 : NIB.PTR,* 
12116 043154 003755 BLE 16$ 
12117 043156 005202 INC R2 : ARR.WRD 6178 
12118 043160 020227 000004 CMP R2,44 ; ARR.WRD,* 
12119 043164 003720 BLE 11$ 
12120 043166 005101 COM R1 : TST.PAT 6195 
12121 043170 104467 TRAP 67 
12122 043172 00 ROR R 
12123 043174 103002 BHIS 19% 
12124 043176 000167 177364 18$: JMP $ 
12125 043202 005205 19$: INC R5 ; TWICE 6155 
12126 043204 020527 000001 CMP R5,#1 : TWICE,* 
12127 043210 003772 BLE 18$ 
12128 043212 021627 000044 CMP (SP), #44 : BAD.NIB.CNT,* 6199 
12129 043216 003432 BLE 20% 
12130 043220 104455 TRAP 55 ; 6202 
12131 043222 000115 “WORD 1 
12132 043224 007444 "WORD ASYNC 
12133 043226 000000 “WORD 0 
12134 043230 012746 007146 MOV #FNC.14,-(SP) F 6203 
12135 043234 012746 006324 MOV #WRD.45.-(SP) 
12136 043240 012746 005760 MOV #WRD.12,-(SP) 
12137 043244 012746 006630 MOV #PHR.4,-(SP) 
12138 043250 012746 006062 MOV #WRD.20,-(SP) 
12139 043254 012746 005414 MOV #FIV.FMT,-(SP) 
| 13140 043260 012746 000006 MOVs #6, - (SP) 
| 


K 
CZMLAAO ML=11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 254 
'HARDWARD TEST SECTION SEQ 0257 
| 12142 3ML4 22-0ct-1980 10:47:44 TOPS 
ser ; 22-0ct-1980 10:45:32 PA:< 
| 

2145 043264 010600 MOV SP,RO ; SP,* 

2146 043266 104414 TRAP 14 

2147 043270 016700 146672 MOV ML.LUN,RO 5 6204 

2148 043274 104451 TRAP 51 

2149 043276 104444 TRAP 44 

2150 043300 062706 000016 ADD #16,SP § 6201 

2151 043304 062706 000006 208: ADD #6,SP ; 6106 

$126 043310 000207 RTS PC 

2154 : Routine Size: 177 words 

sah ; Maximum stack depth per invocation: 16 words 

2161 

2165 

2169 043312 T24:: 

2170 043312 004767 177232 1$: JSR PC, $124 6206 

2171 043316 104466 TRAP 66 

2172 043320 006000 ROR RO 

2173 043322 103773 BLO 1$ 

ge 043324 000207 RTS PC 

2176 : Routine Size: 6 words — 

sia : Maximum stack depth per invocation: 0 words 

2183 

2184 6209 '!<BLF/PAGE> 
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22-0¢t-1980 10:47:44 TOPS=-20 Bliss-16 v2(206) 
22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (67) 
! 
BGNTST; 
'e¢ 
' TEST NUMBER: TST 25 
TEST NAME: PROM SELECTION TEST 


TEST DESCRIPTION: 
DUE TO THE NATURE OF THE DEVICE 
AND OF THE ARRAY MODULES’ UV 
PROMS, ONLY PROM READS ARE 
ALLOWED DURING DIAG TESTING. 


THEREFORE THE ARRAY MODULE UV PROMS 
ARE TESTED FOR UNIQUE SELECTION BY: 


1. AT EACH PRESENT ARRAY MODULE WRITE 127 ARRAY WORDS WITH 1°S/0°S PATTERN. 


2. READ THE UV PROMS AT THEIR RESPECTIVE ARRAY WORD LOCATION AND SEE IF 
THE PROMS MASK BAD NIBBLE LOCATIONS (ENCOUNTERED BAD NIBBLES 
ae ee TY ca MASKING). COUNT EACH BAD NIBELE ENCOUNTERED AT AN 


3. ALLOW A THRESHOLD OF 5 BAD NIBBLES AT ANY ARRAY MODULE. 


4. REPORT PROM SEL ERRORS AT RESPECTIVE ARRAY MODULE IF THE 
THRESHOLD IS EXCEEDED. 


IMPLICIT INPUTS: 
PD_TEMP: 


A BIT VECTOR OF 16 BITS WHERE 
THE READ PROM DATA IS STORED 
AND ACCESSED FROM. 


10_BUF 

A VECTOR OF 256 WORDS WHERE 
DATA FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 


ee ee 


ocal 
DODU_FLG, ‘DROP UNIT FLG 
ERR_FLG, 'ERROR FLG 
TST-PAT, 'TEST PATTERN 
ERR_CNT; ‘ERROR COUNT 


DODU_FLG = ZERO; 
TST_PAT = ONES; 


incr ARR_SEL from 0 to .LST_ARR by .ARR_INC do !TEST ALL PRESENT ARRAYS 


SEQ 0258 


p>————-. ———_- -- - —----~ = 


Mm 4 
CZMLAAO ML-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 256 
|HARDWARD TEST SECTION 
| 12242 3ML4 22-Oct-1980 10:47:44  TOPS-20 Bliss-16 V2(206) 
ieee? 3 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.Bil.2 (67) 
12245 ; 6262 begin 
12246 ; 6263 ERR_CNT = ZERO; 
12247 ; 6264 BGNSUB; 
12248 ; 6265 
12249 ; 6266 incr TWICE from 0 to 1 do !REPEAT LOOP TWICE 
12250 ; 6267 begin 
12251 ; 6268 CLR_MBUS; 
12252 ; 6269 MLDT = T_PAT; ‘LOAD DATA DIAG REGISTERS WITH TST_PAT 
12253 ; 6270 MLDO2 = .TST_PAT; 
12254 ; 6271 MLE2 = .TST_PAT; 
12255 ; 6272 DAT_DM = ONE; 'SET DATA DIAG MODE 
12256 ; 6273 MLWwl = not 255; iLOAD WORD COUNT 
12257 ; 6274 MLBA = 10 BUF; 'LOAD UBUS ADRS 
12258 ; 6275 MLDA = .ARR_SEL; 'LOAD SECTOR 
12259 ; 6276 MLCS1 = write; 'DO A WRITE FUNCTION 
12260 ; 6277 
12261 ; 6278 incr CNT from 0 to 127 do 'CLOCK IN 10 WORDS 
12262 ; 6279 begin 
12263 ; 6280 DELAY (ONE_US); 
12264 ; 6281 DAT_CLK = ONE; 
12265 ; 6282 end; 
12266 ; 6283 
12267 ; 6284 CLR_MBUS; 
12268 ; 6285 DAT_DM = ONE; 'SET DATA DIAG MODE 
12269 ; 6286 MWe = not 255; iLOAD WORD COUNT 
12270 : 6287 LBA = 10 BUF; ‘LOAD UBUS ADRS 
12271 ; 6288 MLDA = .ARR_SEL; 'LOAD SECTOR 
12272 ; 6289 MLCS1 = read; 'DO A READ FUNCTION 
12273 ; 6290 DELAY (ONE_US); 
12274 ; 6291 
12275 ; 6292 incr WD_CNT from 0 to 127 do 'READ THE 10 WORDS 
12276 ; 6293 begin 
12277 ; 6294 PD_TEMP = .MLPD; 'GET PROM DATA FOR THIS WORD 
12278 : 6295 DAT_CLK = ONE; ‘CLOCK THIS WORD INTO DIAG REG 
12279 ; 6296 DELAY (ONE_US); 
12280 ; 6297 RD_LNG_WRD; 'READ DIAG REG FOR THIS WORD 
12281 ; 6298 
iseee ; 344 incr NIB_PTR from 0 to 9 do ‘LOOK AT ALL 10 NIBBLE 
12284 ; 6301 if .PD_TEMP C.NIB_PTR] IS_NOT_SET 'FIND GOOD NIBBLES 
12285 ; 6302 then ~ 
12286 ; 6303 begin 
1scet ; ous TST_LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG); !COMPARE NIBBLE TO TST_PAT 
12289 ; 6306 if .ERR_FLG IS_SET then ERR_CNT = .ERR_CNT ¢ 1; 
12290 ; 6307 
12291 ; 6308 ‘INCREMENT ERROR COUNT IF ERROR FLG IS SET 
12292 ; 6309 end; 
12293 ; 6310 
12294 ; 6311 end; 
12295 ; 6312 
12296 ; 6313 TST_PAT = not .TST_PAT; ‘REPEAT WITH COMPLIMENT DATA 


SEQ 0259 


-—— ; 
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'CZMLAAO ML-11 LOGIC TEST 


HARDWARD TEST SECTION SEQ 0260 


12298 :ML4 22-0¢t-1980 10:47:44 TOPS-20 Bliss-16 v2(206) 

166 ; 22-0ct-1980 10:45:32 PA: <NEALE>BL2ML4.BLI.2 (67) 

12301 ; 6314 end; 

12302 : 6315 ; 

12303 ; 6316 if .ERR_CNT gtr 5 ‘ALLOW 5 ERROR BEFORE ERRORING 

12304 ; 6317 then 

12305 ; 6318 begin 'ERROR IF GTR 5 

12306 : 6319 ERRDF (78, ARR_DAT, 0); 

12307 ; 6320 PRINTB (THR_FMT, WRD_ 35, WRD_37, WRD_10); 

12308 ; 6321 PRINTB (FMT_9, .ARR_SEL); 

12309 ; 6322 DODU_FLG = ONE; 

12310 ; 6323 end; 

12311 : 6324 

12312 : 6325 ENDSUB; 

12313 : 6326 

12314 ; 6327 if .DODU_FLG IS_SET ‘DROP THIS UNIT IF DODU_FLG IS SET 

12315 ; 6328 then 

12316 ; 6329 bogie 

12317 : 6330 DOU (.ML_LUN) ; 

12318 : 6331 DOCLN; 

12319 ; 6332 end; 

12320 ; 6333 

12321 : 6334 end; 

12322 ; 6335 

tt ; 6336 ENDTST; 

12331 043326 004167 140526 $125: JSR R1,$SAVES : 6208 
12332 043332 162706 000016 SUB #16,SP 

12333 043336 005066 000010 CLR 10(SP) : DODU.FLG 6258 
12334 043342 012702 177777 MOV #-1,R2 : #,TST.PAT 6259 
12335 043346 016766 144766 000006 MOV LST.ARR,6(SP) : 6261 
12336 043354 016766 144744 300004 MOV ARR.INC,4(SP) 

12337 043362 005001 CLR R1 : ARR.SEL 

12338 043364 000167 000666 JMP 25$ 

12339 043370 005 000002 1$: CLR 2(SP) : ERR.CNT 6263 
12340 043374 - 104402 2$: TRAP 2 

12341 043376 005016 LR (SP) ; TWICE 6266 
12342 043400 152777 000040 146332 3%: BISB #40,aML.REG+40 : 6267 
12343 043406 016705 146556 MOV L.DUT,RS 

12344 043412 042705 177770 BIC #177776,R5 

12345 043416 142777 000007 146314 BICB = #7 , ML. REG+40 

12346 04 3424 150577 146310 BISB RS, aML.REG+40 

12347 043430 010277 146434 MOV R2,aML.REG+170 : TST.PAT,* 6269 
12348 043434 010277 146440 MOV R2,aML.REG+200 : TST.PAT.* 6270 
12349 043440 010277 146414 MOV R2.aML .REG+160 : TST.PAT.* 6271 
12350 043444 152777 000010 146346 BISB #10,aML.REG+120 : 6272 
12351 042452 012777 177400 146230 V #-460,aML.REG+10 : 6273 
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136250 
000014 


146236 
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146232 
146200 


146260 


146162 


146144 
146212 
146074 
146076 


146044 


16$: 
17$: 


MOV #10.BUF ,@ML.REG+20 
MOV R1,aML.REG*+ 30 
MOV #61, aML.REG 
CLR R3 
MOV #1,R4 
BEQ 8$ 
MOV LSDLY,RS 
BEQ 7$ 
CLR 14 (SP) 
DEC RS 
BNE 6$ 
DEC RG 
R 5$ 
BISB #20,aML.REG+120 
INC R 
CMP R3,#177 
BLE 4$ 
BISB  #40,aML.REG+40 
MOV 


ML.OUT,RS 
BIC #177776, RS 


BICB = #7, AML. REG+40 
BISB  R5.aML.REG+40 
BISB #10,aML.REG+120 
MOV #-400,aML.REG+10 
MOV #10.BUF ,aML.REG+20 
MOV R1,aML.REG+30 
MOV #71 ,aML.REG 

MOV #184 

BEQ 12$ 

MOV LSDLY.R5 

BEQ 11$ 

CLR 14(SP) 

DEC R5 

BNE 10$ 

DEC R4 

BR 9$ 

CLR R3 


MOV aML .REG+230,PD. TEMP 


BISB #20,aML.REG+120 
MOV #1,R4 

BEQ 17% 

MOV LSDLY,RS 

BEQ 16$ 

CLR 14 (SP) 

DEC RS 

BNE 15$ 

DEC R4 

BR 14$ 

MOV @ML.REG+170,D1. TEMP 
MOV ami .REG+200.D2. TEMP 
MOV @ML .REG+160.E2. TEMP 
CLR R4 


Be Se Be Be Be 


e. 


ARR.SEL,* 


CNT 
* ,SSTMP2 
*,SSTMP1 


$$TMP 
$STMP1 


$STMP2 


CNT 
CNT,* 


ARR.SEL,* 
* ,S$TMP2 


; *,SSTMP1 


$STMP 
$STMP1 


> SSTMP2 


WD.CNT 


* ,SSTMP2 
* ,SSTMP1 


S$STMP 
SSTMP1 


SSTMP2 


NIB.PTR 


SEQ 0261 


6281 
6278 


6299 


r 
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12455 044154 012746 
12456 044160 012746 
12457 044164 010600 
12458 044166 104414 
12459 044170 010116 
12460 044172 012746 
12461 044176 012746 
12462 044202 010600 
12463 044204 104414 


Bo els Lote 


011662 
177770 
000001 


137066 
000010 


000020 


146616 
000020 


000010 
000006 
000011 
000177 


000001 


177260 
000002 


005740 


000004 


004602 
000002 
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000001 


19$: 
20$: 


000005 21%: 


R4,R5 
R5 
R5 


RS 
#PD.TEMP,RS 
RS,-(SP) 

Ru. =(SP) 
#177770, (SP) 
#1,-(SP) 
-(§P) 


20(SP) #1 
9$ 


° 
10(SP) 
+ al 


#WRD.10,-(SP) 
#WRD.37,-(SP) 
#WRD.35,-(SP) 
#THR FMT ,-(SP) 
#4 ,-(SP) 

SP,RO 

i 


RI, (SP) 
#FMT.9,-(SP) 
#2,-(SP) 

SP ,RO 

14 
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NIB. 


NIB. 


NIB. 
NIB. 


WD.C 
WD.C 


TST. 
TwIC 
TwIC 


; ERR. 


SP,* 


ARR. 


SP,* 


PTR,* 


PTR,* 


-PTR,* 
-PAT,* 


-FLG,* 
-FLG,* 
-CNT 


PTR 
PTR,* 


NT 
NT,* 


PAT 
E 
E,* 


CNT,* 


SEL.* 


22-0c t-198 
22-0ct-198 


0 
0 


10: 
10 


SEQ 0262 


47:44 


7:45:32 


TOPS 
PA:< 


6301 


6304 


6306 


6303 
6299 


6292 


6313 
6266 


6316 
6319 


6320 


6321 


CZMLAAO ML-11 
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‘MARDWARD TEST SECTI 


0 , 
ECTION SEQ 0263 


12465 sML4 22-0ct-1980 10:47:44 TOPS 
15168 ; 22-0¢t-1980 10:45:32 PA:< 
12468 044206 012766 000001 000026 MOV #1,26(SP) ; *,DODU.FLG 6322 
12469 044214 062706 000016 ADD #16,SP ; 6318 
12470 044220 104467 223: TRAP 67 : 6323 
12471 044222 006000 ROR RO 
12472 044224 103002 BHIS 23% 
12473 044226 000167 177142 JMP 23 
12474 044232 026627 000010 000001 23$: CMP 10(SP),#1 ; DODU.FLG,* 6327 
12475 044240 001004 BNE - 24% 
12476 044242 016700 145720 MOV ML.LUN,RO 3 6330 
12477 044246 104451 TRAP 51 
12478 044250 104444 TRAP 44 
: *,ARR.SEL 6261 
12480 044256 020166 000006 258%: CMP R1,6(SP) ; ARR.SEL,* 
12481 044262 003002 BGT 26% 
12482 044264 000167 177100 JMP i$ 
12483 044270 062706 000016 26$: ADD #16,SP i 6208 
ae 4} 044274 000207 RTS PC 
24 
12486 ; Routine Size: 244 words 
12487 ; Maximum stack deoth per invocation: 20 words 
12492 
12493 
12497 
12501 044276 T25:: . 
2502 044276 004767 177024 1$: JSR PC,$125 : 6334 
3 044302 104466 TRAP 66 


06 044310 000207 RTS PC 
; Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 


| 

| 

12479 044252 066601 000004 24$: ADD 4(SP),R1 
; 6337 '<BLF/PAGE> 

| 


| | —E 5 
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1c 1 
‘'HARDWARD TEST SECTION SEQ 0264 
12518 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
| 1s21? ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI1.2 (68) 
12521 ; 6338 =! 
12522 ; 6339 BGNTST; 
12523 ; 6340 
12524 ; 6341 !+4 
12525 ; 6342 | TEST NUMBER: TST 26 
12526 ; 6343 =! 
12527 ; 6344 | TEST NAME: READ WRITE ARRAYS WITH PROM DATA 
12528 ; 6345! 
12529 ; 6346 | TEST DESCRIPTION: 
12530 ; 6347 |! COMBINE THE READING OF ARRAY 
12531 ; 6348 =! MODULE DATA WITH ARRAY MODULE UV PROM DATA AND 
12532 ; 6349 =! FIND A GOOD BLOCK WHERE FURTHER 
if 33 : $339 TESTING WILL BE PERFORMED BY: 
12535 ; 6352 =! 1. STARTING AT BLOCK 0 WRITE THE BLOCK WITH SELECTED DATA PATTERNS 
12536 ; 6353! AND READ THE BLOCK AVOIDING ANY BAD NIBBLES POINTED TO BY THE 
12537 ; 6354 |! PROM DATA. 
12538 ; 6355! 
sSe7p : 6328 SET ERROR FLAG IF ANY BAD NIBBLES ARE ENCOUNTERED IN BLOCK. 
12541 ; 6358 =! 2. REPEAT WRITING/READING THIS BLOCK UNTIL ALL PATTERNS ARE TESTED 
12542 ; 6359! OR THE ERROR FLAG IS SET. 
12543 ; 6360 ! 
12544 ; 6361 =! 3. IF ALL PATTERN HAVE BEEN TESTED AND THE ERROR FLAG IS NOT SET 
15262 3 O368 THEN SAVE THIS BLOCK ADDRESS AS THE GOOD BLOCK ADRS AND EXIT TEST. 
12547 ; 6364 =! 4. ELSE IF THE ERROR FLG HAS SET THEN REPEAT TEST AT THE NEXT ROW. 
i Tre ; $368 REPEAT UNTIL A GOOD BLOCK IS FOUND OR LAST ROW IS REACHED. 
12550 ; 6367 =! 5. IF NO GOOD BLOCK IS FOUND BY LAST ROW THEN REPORT ERROR AND 
12551 ; 6368 =! EXIT TEST. 
12552 ; 6369 =! 
12553 ; 6370 |! IMPLICIT INPUTS: 
12554 ; 6371! RAS_INC 
12555 ;: 6372 |! LOABED DURING THE INITIALIZATION CODE AND CONTAINS THE ROW ADDRESS 
12556 ; 6373! INCREMENT VALUE FOR THIS DRIVE. 
12557 ; 6374 ! 
12558 ; 6375 =! 
12559 ; 6376 =! PD TEMP: 
12560 ; 6377! A GITVECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND 
12561 ; 6378 =! ACCESSED FROM. 
12562 ; 6379 =! 
12563 ; 6380 ! 10_BUF: 
12564 ; 6381 |! A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTION 
12565 ; 6382 =! ARE FOUND. 
12566 ; 6383 =! 
12567 ; 6384 =! 
12568 ; 6385 !-- 
12569 ; 6386 
12570 ; 6387 local 
12571 ; 6388 WRD_CNT, 'WORD COUNT 
12572 ; 6389 NIB_PTR, 'NIBBLE POINTER 
| 
| 


z-. 
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HARDWARD TEST SECTION SEQ 0265 
12574 ;ML4 22-Oct-1980 10:47:44  TOPS=20 Bliss-16 v2(206) 
1¢273 ; 22-0ct-1980 10:45:32 PA: <NEALE>BL2ML4.BL1.2 (68) 
7 6390 PASS CNT, 'PASS COUNT 


6391 NIB BAT, WIG PATTERN 
6392 DONE _FLG, ‘DONS FLAG 

6393 ERR_FLG, 'ERRO a FLAG 
6394 SECTOR _NO: 'SECTOR NUMBER 


6396 BGNSUB; 

6397 PASS_CNT = =1; 
6398 SECTOR "NO = “TEROES:; 
6399 DONE_FLG = ZERO; 


6401 do 'THIS LOOP DETERMINES WHEN TO STOP 
tat begin 


6404 do !THIS LOOP RUNS THE PATTERNS 
6406 Bags. CNT = -PASS_CNT + 1; INCREMENT THE PASS COUNT 
6407 CLR_ 
6408 DAT_DM = ‘ON i 'SET DATA DIAG MODE 

. SECTOR _NO; 'LOAD SECTOR NUMBER IN DSA 


6409 MLDA 
not 255; 'LOAD WORD COUNT 


6410 MLWC 
6411 MLBA = I10_BUF; 'LOAD UBUS ADRS 


| 
: 
; 
600 : 6413 case .PASS_CNT from 0 to 3 of ‘SELECT A NIBBLE PATTERN 
12601 ; 6414 set 
12602 : 6415 
| € 
| 


ee pe ee ee ee Le eee 
nuuw "38° 
mg 
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(0) : 
6417 NIB_PAT = %0'000000'; ' ZEROES 
(1) : 
6420 NIB_PAT = %0'17"; 'ONES 
(2) : 
6423 NIB_PAT = %0'12'; ‘ALTERNATING ONE'S, ZEROES 
(3] : 
6426 NIB_PAT = te* 15" ‘COMPLIMENT ONE'S, ZEROES 


6427 tes; 


6429 incr LD_CNT fron 0 to 9 do ‘LOAD NIBBLE PATTERN INTO NIBBLE SAVE 
6430 LD_CNG_WRD (.LD_CNT, .NIB_PAT); 


6432 WRT_LNG_WRD; 'LOAD THE DATA DIAG REGISTERS WITH NIBBLE SAVE 
6433 MLC31 = write; 'DO A WRITE FUNCTION 


6435 incr WRT_CNT from 0 to 127 do ‘WRITE PATTERN INTO THIS BLOCK 
egin 

6437 DELAY (ONE US); 

6438 DAT_CLK = ONE; 

6439 end; 


6441 CLR_MBUS; 


G 
263 
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HARDWARD TEST SECTION SEQ 0266 
12630 ;ML4 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
| 1503) 3 22-0¢t-1980 10:45:32 PA: <NEALE>BL2ML4.BLI.2 (68) 
| 12633 ; 6442 DAT_DM = ONE; 'SET DATA DIAG MODE 
| 12634 ; 6443 MLDA = .SECTOR_NO; 'LOAD SECTOR NUMBER 
12635 ; 6444 MLWC = not 255; 'LOAD WORD COUNT 
12636 ; 6445 MLBA = 10_BUF; 'LOAD UBUS ADRS 
| 12637 ; 6446 MLCS1 = read; iDO A READ FUNCTION 
| 12638 ; 6447 DELAY CONE _US); 
12639 ; 6448 WRD_CNT = =1; ‘RESET THE WRD COUNT 
12640 ; 6449 
12641 ; 6450 do 
12642 ; 6451 begin 'TEST BLOCK FOR NIGBLE PATTERN 
12643 ; 6452 WRD_CNT = .WRD_CNT ¢ 1; ' INCREMENT WARD _ CN 
12644 ; 6453 PD TEMP = .MLPD; 'GET PROM DAT 
12645 ; 6454 DAT_CLK = ONE; ‘CLOCK DATA ume INTO DIAG REG 
12646 ; 6455 DELAY (ONE _US); ' 
12647 ; 6456 RD_LNG_WR DS 'READ DIAG REGISGTER 
12648 ; 6457 NIB_PTR = 'RESET NIBBLE POINTER 
12649 ; 6458 
12650 ; 6459 do 
12651 ; 6460 begin 'SEARCH AND TEST GOOD NIBBLE> 
1ce3e ; “ei NIB_PTR = .NIB_PTR + 1; ‘INCREMENT NIBBLE POINTE 
12654 ; 6463 if .PD_TEMP C.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR, .NIB_PAT, ERR_FLG); 
12655 ; 6464 
12656 ; 6465 end 
12657 ; 6466 until (.ERR_FLG) or (.NIB_PTR eql 9); 
12658 ; 6467 
12659 ; 6468 end 
12660 ; 6469 until (.ERR_FLG) or (.WRD_CNT eql 127); 
12661 ; 6470 
12062 ; 6471 end 
sheer ; re until (.PASS_CNT eql 3) or (.ERR_FLG IS_SET ); ‘REPEAT UNTIL ALL PAT TESTED OR ERROR FLG GETS SET 
12665 ; 6474 if (.PASS_CNT eql 3) and (.ERR_FLG IS_NOT_SET ) 'WAS THIS A GOOD BLOCK? 
12666 ; 6475 then 
12667 ; 6476 begin 'YES 
12668 ; 6477 DONE_FLG = ONE; 'SET DONE FLAG 
12669 ; 6478 GOOD"BLK = .SECTOR_NO; 'GOOD BLOCK GETS THIS SECTOR NO 
12670 ; 6479 end 
12671 ; 6480 else 
12672 ; 6481 begi 'NO 
12673 ; 6482 SE TOR NO = .SECTOR_NO + .RAS_INC; ' INCREMENT ROW NO 
12674 ; 6483 PASS_ CNT = -1; 'RESET PASS COUNT 
12675 ; 6484 enc; 
12676 ; 6485 
12677 ; 6486 end 
12678 ; 6487 until (.DONE_FLG iS_SET ) or (.SECTOR_NO eql .LST_ARR + .ARR_INC); 
12679 ; 6488 
12680 ; 6489 'REPEAT UNTIL GOOD BLK FOUND OR AT LST ROW 
12681 ; 6490 ENDSUB; 
12682 ; 6491 
12683 ; 6492 if .SECTOR_NO eql .LST_ARR + .ARR_INC 'SEE JF WE'RE AT THE LAST BLOCK 
12684 ; 6493 then 


H § 
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CZMLAAO ML-11 LOGIC 1 
ECTION SEQ 0267 


'HARDWARD TEST S 


—o 


I] 
T 


12686 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 

| 12687 ; 22-Oct-1980 10:45:32  PA:<NEALE>BL2ML4.BLI.2 (68) 

| 12689 ; 6494 begin 'A GOOD BLK NOT FOUND BEFORE LAST BLK 

| 12690 ; 6495 ERRDF (79, ARR_DAT, 0); ‘ERROR AND DROP UNIT 

| 12691 ; 6496 PRINTB (THR_FMT, WRD_14, PHR_10, FNC_15); 

/ 12692 ; 6497 pore (. ML_LON); 

| 12693 ; 6498 DOCLN 
12694 ; 6499 end; 
12695 ; 6500 
12696 ; 6501 ENDTST; 

| 12704 044312 004167 137542 $126: JSR R1,$SAVES ; 6336 
12705 044316 162706 000014 SUB #i4,SP 
12706 044322 104402 1$: TRAP : 6394 
12707 044324 012766 177777 000002 MOV #-1,2(SP) > *,PASS.CNT 6397 
12708 044332 005002 CLR R2 > SECTOR.NO 6398 
12709 044334 005066 000004 CLR 4 (SP) > DONE .FLG 6399 
12710 044340 005266 000002 2$: INC 2(SP) + PASS.CNT 6406 
12711 044344 152777 000040 145366 BISB #40,aML.REG+40 
12712 044352 016705 145612 MOV ML.DUT,R5 
12713 044356 042705 177770 BIC #177770, RS 
12714 044362 142777 000007 145350 BICB = #7, AML. REG+40 
12715 044370 150577 145344 BISB ~—s RS, @ML.REG*+40 
12716 044374 152777 000010 145416 BISB «#10 ,aML.REG+120 ; 6408 
12717 044402 010277 145322 MOV R2,aML.REG+30 + SECTOR.NO,* 6409 
12718 044406 012777 177400 145274 MOV #-400,aML.REG+10 : 6410 
12719 044414 012777 010342 145276 MOV #10.BUF ,aML .REG+20 : 6411 
12720 044422 016605 000002 MOV 2(SP),R5 : PASS.CNT,* 6413 
12721 044426 006305 ASL. R 
12722 044430 066507 044434 ADD 3$(R5) PC 
12723 044434 000010 3$: .WORD 4$-3$ 
12724 044436 000014 .WORD 5$-3$ 
12725 044440 000022 .WORD 6$-3$ 
12726 044442 000030 -WORD 7$-3$ 
12727 044444 00500 4$: CLR R1 > NIB.PAT 6417 
12728 044446 000410 BR 8$ : 6413 
12729 044450 012701 00017 5$: MOV #17,R1 > *,NIB.PAT 6420 
12730 044454 00040 BR $ ; 6413 
12731 044456 012701 000012 6$: MOV #12,R1 : *,NIB.PAT 6423 
12732 044462 000402 BR $ : 6413 
12733 044464 012701 000015 7$: MOV #15,R1 : *,NIB.PAT 6426 
12734 044470 005005 8$: CLR 5 > LD.CNT 6429 
12735 044472 010546 9$: MOV R5,-(SP) + LD.CNT,* 6430 
12736 044474 010146 MOV R1,-(SP) > NIB.PAT,* 
12737 044476 004767 147134 JSR PC,LD.LNG.WRD 
12738 044502 022626 CMP (SP)+, (SP) + 
12739 044504 005205 INC R5 > LD.CNT 6429 

| 


CZMLAAO ML-11 


L 
HARDWARD TEST S$ 


750 044544 
51 044546 


ob pe ee by 
P > . 
So 
, 
= 
uw 
on 
oO 


792 044776 
93 045000 
794 045002 
795 045004 


| 


ag 


000011 
143174 


000061 
000001 
135336 
000012 


000020 
000177 
000040 


000001 
135204 
000012 


177777 


000001 
135126 
000012 
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145214 


145116 


145100 
145146 
145024 


145026 
145000 


000006 


144712 
145042 


3 ML4 


12$: 


138: 
14$: 


15$: 
16$: 
17$: 


18$: 
19$: 


208: 


218: 


228: 


9$ 
D1. TEMP, a@ML.REG+170 
D2. TEMP, aML .REC*+200 


E2. TEMP, aM. .REG+160 
+ 1 ae 


11$ 

+ telat te 

R3,#177 

10$ 

#40 AML .REG+40 
DUT,R5 


R2,aML .REG+30 
#-400,aML.REG+10 
#10.BUF ,aML .REG+20 
#71, aML.REG 


1 

#-1,6(SP) 

6(SP) 

@ML .REG+230,PD. TEMP 
#20, aML.REG*+120 
#1,R4 


SEQ 0268 
22-0¢t-1980 10:47:44 TOPS 
22-0ct-1980 10:45:32 PA:< 

; LD.CNT,* 
6430 
; 6433 
; WRI.CNT 6435 
; *,S$$TMP2 6437 
; *,SSTMP1 
; SSTMP 
: $S$TMP1 
; $S$TMP2 
: 6438 
; WRT.CNT 6435 
; WRI.CNT,* 
6439 
: 6442 
; SECTOR.NO,* 6443 
. 6444 
6445 
3 6446 
; *,SSTMP2 6447 
; *,SSTMP1 
; SSTMP 
; SSTMP1 
; SSTMP2 
; *,WRD.CNT 6448 
; WRD.CNT 6452 
; 6453 
: 6454 
; *, SSTMP2 6455 
; *,S$STMP1 
; $STMP 
; SSTMP1 
: SSTMP2 


SSSVSPSSSS 
oo 
CSS aRaS 
oS 
222 
wou 
2222S 
cee 


8 04 
809 045046 
5054 


Wwrn]—-—-Soo 
OofOoonvoe & 


Wms & & 


RRLRRERLRELRERLLERLLRELELLEE 
RNVSSSSLSFSSNSE 


MAMAN AVIA IU UA UI UT UT UU 


RELELALLRLLLER 
SBCSKENSSRNSRSS 


ww 
wns 
oor 


066 

012766 
026627 
001410 


011662 
000002 
177770 
000001 


136004 
000010 


000016 
145534 
000006 
000010 
000001 
000011 
000001 


000006 


000002 


000001 


000001 
143072 


144424 
177777 
000004 
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sML4 
00 23%: 
74 
70 


24$: 


1427 
1426 
1426 


25$: 


000177 


268: 
000003 


27$: 
288: 


000004 


298: 
000002 
000001 30$: 


QML .REG+170,D1. TEMP 
QML .REG*+200,02. TEMP 
aML .REG+160,E2. TEMP 
#-1, (SP) 


#1,-(SP) 


- (SP) 
PC pete 


BL 
#10,S 
RO 
25% 

(SP) ,-(SP) 


SP, (SP) 


Pp 
PC, TST.LNG.WRD 


#6.SP 
1O(SP) RS 
26$ 

(SP) ,#11 
24$ 

#1,R5 
6(SP) #177 
19 


#1,4 (SP) 
R2,GOOD .BLK 


RAS.INC,R2 


NIB.PTR,* 


NIB.PTR,* 
NIB.PAT,* 


; ERR.FLG,* 


; ERR.FLG,* 


NIB.PTR,* 


; WRD.CNT,* 


PASS.CNT,* 


22-0 t-198 
22-0c t-198 


01 
01 


oo 


4 
3693 


SEQ 0269 


6466 


6469 


6472 


co 


/CZMLAAO ML=-11 LOGIC TEST 


HARDWARD TEST SECTION 


45270 


rmrrrr 
Mwy 
uw 


FWN $0 VONOUEWN Oo OOn 
oo 


SUSI SSeS eeeee 
8 


oo 
N 


SoOONOU 
RRRERRLLSLRLELLLALLRLLLELLE 


oNNN NN 


WN — 


000207 


~N 
3 
~ 
So 
&* 
w 
= 
— 
o 


004767 


000207 


000004 


144574 


000012 
000014 


176676 


33$: 


34$: 


; Routine Size: 
; Maximum stack 


T26:: 

1$: JSR 
TRAP 
ROR 
BLO 
RTS 
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LST.ARR,RS 
ARR.INC,R5 


R2,R5 
32$ 
2$ 

67 
RO 
335 
1$ 
LST.ARR,RS 


ARR.INC,R5S 
es" 


#FNC.15,=(SP) 
#PHR.10,-(SP) 
#WRD.14,-(SP) 
#THR FMT ,-(SP) 
> gt 


14 
ML.LUN,RO 


287 words 


depth per invocation: 


17 words 


; SECTOR.NO,* 


; SECTOR.NO,* 


SP,* 


SEQ 0270 


TOPS 
PA:< 


6492 


6495 


6496 


6497 


6494 
6336 


6499 


‘CZMLAAO ML-11 LOGIC TEST 


ae TEST SECTION 


OOODoO0O 


922 
924 


kk kd tk od ot ot 
~m 
“ 


3ML4 


Be Be Se Se Se Be Be Se Se Be Se Be Se Ss Be Be Ge Ge Be Be Be Ge Ge Se Se Se Ge Be Be Be Ge Se Ge Be Ge Ge Ge Ge Ge Ge Be Ge Se Ge Ge Ge Ge Ge Se Se Se Ge 


-. 
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! 
BGNTST; 
TST 27 
REFRESH TIMING TEST 
TEST DESCRIPTION: 
TEST THE MEMORY ARRAY MODULES 


REFRESH TIMING AND CONTROL LOGIC 
REG BY: 


'e4 
TEST NUMBER: 
TEST NAME: 


1. WRITING ALL ONES INTO THE 
GOOD BLOCK. 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
2. DELAY FOR 2 MS 

; 3. READ THE GOOD BLOCK FOR ONES. 
KEEP COUNT OF BAD NIBBLES 

| ENCOUNTERED 

4, ae A BAD NIBBLE THRESHOLD 

F 20 BAD NIBBLES OUT OF THE 

! 1380 NIBBLES TESTED. 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

- 


5. IF THRESHOLD IS EXCEEDED THEN 
REPORT ERROR AND DROP THE UNIT. 


IMPLICIT INPUTS: 
PD_TEMP: 
A BIT VECTOR OF 16 BITS WHERE 
THE READ PROM DATA IS STORED 
AND ACCESSED FROM. 


tr OWN LOCATION TO THIS 


'TEST PATTERN 
‘ERROR COUNT 
'ERROR FLAG 


sre 


CLR _MBUS; 
ERR_CNT = ZERO; 


TOPS=20 Bliss-16 V2(206) 
PA: <NEALE>BL2ML4.BLI1.2 (69) 


SEQ 0271 





alpen ML=11 L 
HARDWARD TEST S$ 


13009 


Ww 
o 


SSSSSSS 
NORO S t 


— et oe os OS a SS 
—SOOONOUSLWN—oO 


WAwWw 
oooo 


7ML4 


Be Se Se Se Se Be Ge Be Se Se Se Be Se Ge Se Ge Ge Se Se Be Se Be Ge Ge Fete Be Ge Ge Be Se Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge FH Se Ge Se Se Ge Fe Ge 


0G 
EC 


l 
T 


CNT + 1; 


SEQ 0272 


22-0ct-19 
22-Oct-19 


TOPS-20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (69) 


'LOAD DATA DIAG REGS WITH TST PAT 
'SET UP A DATA DIAG MODE XFERR 


!DO A WRITE FUNCTION 
‘WRITE BLOCK WITH TST PAT 


'SET UP A DATA DIAG MODE XFERR 
'DO A READ FUNCTION 

'DELAY FOR 2 MS 

'READ THE BLOCK 


'GET THE PROM DATA 
'CLOCK DATA WORD INTO DIAG REG 


!READ THE DIAG REG 
'LOOK AT 10 NIBBLES 


TST_LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG); 
‘FIND GOOD NIBBLES AND COMPARE THEM 
‘INCREMENT ERROR COUNT IF ERR_FLG IS SET 


‘ALLOW 20 NIBBLES TO FAIL 
‘ERROR IF GTR 20 


4 5 
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6555 TST_PAT = a Ft 
6556 MLOT =. # AT; 
6557 mtb? = .TST “PAT; 
6558 MLE2 = T"PAT; 
6559 DAT_DM_ XFER™ (32 
6560 MiCS1 = write; 
6561 
6562 incr WRD_CNT from 0 to 127 do 
6563 begin 
6564 DELAY (ONE_US); 
6565 DAT_CLK = ONE; 
6566 end; 
6567 
6568 CLR_MBUS; 
6569 DAT ~DM_ XFER (dg 
6570 MLCS1 = read; 
eA DELAY (TWO_ TH US); 
6573 incr WRO_CNT from 0 to 127 do 
6574 egin 
6575 PD oe = .MLPD; 
6576 DAT_CLK = ONF ; 
6577 DELAY. CONE _US); 
6578 RD_LNG_WRD; 
6579 
6580 incr NIB_PTR from 0 to 9 do 
6581 begin 
6582 
6583 if .PD_TEMP C.NIB_PTR] IS_NOT_SET then 
6584 
6585 
6586 
6587 if .ERR_FLG IS_SET then ERR_CNT = .ERR 
6588 
6589 end; 
6590 
6591 end; 
6592 
6593 ENDSUB; 
6594 
6595 if .ERR_CNT gtr 20 
6596 then 
6597 begin 
6598 ERRDF (80, ASYNC, 0); 
6599 PRINTB (FIV FMT, WRD- 22, PHR_4, WRD_12, FNC_16, WRD 48); 
6600 BODU . -ML_LON); 
6601 DOCLN 
6602 end: 
6603 
6604 ENDTST; 





r 
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HARDWARD TEST SECTION SEQ 0273 
13029 
13033 045424 004167 136430 $127: JSR R1,$SAVES : 6501 
13034 045430 024646 CMP =(§P) ,-($P) 
13035 045432 104402 1$: TRAP 2 : 6550 
13036 045434 152777 000040 144276 BISB #40,aML.REG+40 : 6552 
13037 045442 016703 144522 MOV ML.OUT,R 
13038 045446 042703 177770 BIC #177776, R3 
13039 045452 142777 000007 144260 BICB = #7, AML. REG +40 
13040 045460 150377 144254 BISB R3,aML.REG+40 
13041 045464 005005 CLR R5 : ERR.CNT 6554 
13042 045466 012704 177777 MOV #-1,R4 3 *,TST.PAT 6555 
13043 045472 010477 144372 MOV R4, aML .REG+170 : TST.PAT,#® 6556 
13044 045475 010477 144376 MOV R4.aML .REG+200 : TST.PAT.* 6557 
13045 045502 010477 144352 MOV R4.a@ML .REG+160 : TST.PAT.* 6558 
13046 045506 004767 145114 JSR PC,DAT.DM.XFER 3 6559 
13047 045512 012777 000061 144160 MOV #61, aML.REG : 6560 
13048 045520 005001 CLR R1 + WRD.CNT 6562 
13049 045522 012702 000001 2$: MOV #1,R2 + *,$$TMP2 6564 
13050 045526 001411 3$: BEQ 6$ 
13051 045530 016703 134362 MOV LSDLY,R3 : +, SSTMP1 
13052 045534 001404 BEQ 5$ 
13053 045536 005066 000002 4$: CLR (SP) : $STMP 
13054 045542 005303 DEC R3 : $$TMP1 
13055 045544 001374 BNE 4$ 
13056 045546 005302 S$ DEC R2 : $$TMP2 
13057 045550 000766 BR 3$ 
13058 045552 152777 000020 144240 6%: BISB  #20,aML.REG+120 : 6565 
13059 045560 005201 INC R1 + WRD.CNT 6562 
13060 045562 020127 000177 CMP R1,#177 + WRD.CNT,* 
13061 045566 003755 BLE 2$ | 
13062 045570 152777 000040 144142 BISB #40,aML.REG+40 : 6566 | 
13063 045576 016703 144366 MOV ML.OUT,R3 
13064 045602 042703 177770 BIC #177776,R3 
13065 045606 142777 000007 144124 BICB = #7, @ML..REG+40 
13066 045614 150377 144120 BISE R3,aML.REG+40 
13067 045620 004767 145002 JSR PC,DAT.DM.XFER : 6569 
13068 045624 012777 000071 144046 MOV #71,aML.REG : 6570 
13069 045632 012702 003720 MOV #3720,R2 : *, $$TMP2 6571 
13070 045636 001411 7$: BEQ 1 
13071 045640 016703 134252 MOV LSDLY,R3 : +, SSTMP1 
13072 045664 001404 BEQ 9 
13073 045646 005066 000002 8$: CLR 2(SP) : SSTMP 
13074 045652 005303 DEC R3 : $$TMP1 
13075 045654 001374 BNE 8$ 
13076 045656 005302 9$: DEC R2 : $STMP2 
13077 045660 000766 BR 7$ 
13078 045662 005001 10$: CLR R1 : WRD.CNT 6573 
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FUN SSR NOOR UN COMNOAUNRWN =O 
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090 045720 005303 


6050 001001 


oS 
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o 
fF 
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144240 
000020 
000001 
134204 


000002 


144134 
144136 
144110 


011662 
177770 
000001 


135070 
000010 


000006 


144620 
000006 
000001 


000011 


000177 


177324 
000024 


14$: 
15$: 


16$: 


17$: 


18$: 


19$: 


iw i ae oS 
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aM .REG*+230,P0. TEMP 
#20, QML .REG*+120 
#1,R2 


1 
aML.REG+170,01. TEMP 
@ML .REG+200,02. TEMP 
QML .REG+160,E2. TEMP 
R2.R3 

R3 

R3 

R3 

#PD.TEMP,R3 
R3,-(SP) 

R2,-(SP) 

#177770, (SP) 
#1,-(SP) 

-(§P) 


PC ,BL$GT2 
#10,SP 


SP, (SP) 

PC’ TST.LNG.WRD 
#6,SP 

(SP) #1 

18$ 

R5 

‘ 
16$ 
R1 
R1,#177 


1$ 


#1) 


; *,SSTMP2 
; *,S$STMP1 


; SSTMP 
; SSTMP1 


; SSTMP2 
; NIB.PTR 


; NIB.PTR,* 


; NIB.PTR,* 


; ERR.CNT,* 


oo 


SEQ 0274 


6580 
6583 


6587 


6580 


6573 


6591 


6595 
6598 


/CZMLAAO ML=-11 LOGI 
/HARDWARD TEST SECT 


| bE 


6 
046124 012746 006360 


To oe a lee ie 
ViFrWR—O0OoO~n 
Oo 
on 
—_ 
= Ww 
F ofr 
oS 
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&- 
ao 
So 
So 
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— 
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= 


7 046154 012746 000006 
0 046164 016700 143776 
046 


4 

4 

4 

4 

4 

5 

2 

4 046174 062706 000016 
F 046202 000207 
5 

5 

6 

6 

6 

7 

7 

7 

7 


=> 
So 
4 
oa 
~m 
So 
oO 
Oo 
~m 
~m 
a 
~m 
o 


OF WONO 


3 046204 004767 177214 


77 046216 000207 
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SS es -sssssssss--stet a 
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6605 !<BLF/PAGE> 
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-WORD ASYNC 


MOV #FIVLEMT,-(SP) 
MOV #6,-(SP) 
MOV SP RO 


TRAP 1 

MOV ML.LUN,RO 
TRAP 51 

TRAP 44 


ADD #16,SP 


208: CMP (SP)+,(SP)+ 
PC 


; Routine Size: 184 words 


; Maximum stack depth per invocation: 


T27:: 
1$: JSR PC,$127 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 


; Routine Size: 6 words 


; Maximum stack depth per invocation: 


SEQ 0275 


TOPS 
PA:< 


6599 


6600 


6597 
6501 


6602 


dD. 6 
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CZMLAAO ML=11 LOGIC T 
HARDWARD TEST SECTION SEQ 0276 
13189 ;ML4 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
| 13130 ; 22-0¢t-1980 10:45:32  PA:<NEALE>BL2ML4.BLI.2 (70) 
| 
13192 ; 6606 ! 
13193 ; 6607 BGNTST; 
13194 ; 6608 
13195 ; 6609 !++ 
13196 ; 6610 | TEST NUMBER: TST 28 
13197 ; 6611! 
13198 ; 6612 | TEST NAME: ADDRESS COUNTER TEST 
13199 ; 6613! 
13200 ; 6614 | TEST DESCRIPTION: 
13201 ; 6615! TEST THE ABILITY OF THE ADDRESS 
13202 ; 6616 |! COUNTER TO SUCCESSFULLY COUNT 
13203 ; 6617 ! FROM BLOCK ZERO THROUGH THE 
13204 ; 6618 ! DEVICES LAST BLOCK BY: 
13205 ; 6619 ! 
13s08 ; eect 1. WRITING THE LAST BLOCK WITH ONES PATTERN. 
13208 ; 6622 ! 2. STARTING AT BLOCK ZERO WRITE ZEROES INTO ALL BLOCK UP TO THE 
13209 ; 6623! LAST BLOCK ADRS MINUS ONE. 
13210 ; 6624 | 
ta ; sec? READ THE LAST BLOCK FOR ONES AND ERROR IF ZEROES. 
13213 ; 6627 ! 3. STARTING AT BLOCK ZERO WRITE ZEROES INTO ALL BLOCK THROUGH THE LAS? 
13214 ; 6628 ! BLOCK. 
13215 ; 6629 ! 
13216 ; 6630 ! READ THE LAST BLOCK FOR ZEROES AND ERROR IF STILL ONES. 
13217 ; 6631 =! 
13218 ; 6632 |! IMPLICIT INPUTS: 
13219 ; 6633! PD_TEMP: 
seer : or A BITVECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND ACCESSED FROM. 
221 ; la 
13222 ; 6636 
13223 ; 6637 Local 
13224 ; 6638 DODU_FLG, ‘DROP UNIT FLAG 
13225 ; 6639 ERR_FLG, 'ERROR FLG 
13226 ; 6640 END_CNT, ‘ENDING SECTOR NUMBER 
13227 ; 6641 BG_PAT; ‘BACKGROUND PATTERN 
13228 ; 6642 
13229 ; 6643 BGNSUB; 
13230 ; 6644 CLR 
13231 ; 6645 DODO_FLG = ZERO; 
13232 ; 6646 8G_PAT = ONES; ‘BACKGROUND PAT OF ONES 
13233 ; 6647 MLB1 = .BG_PAT; 'LOAD DATA DIAGS WITH BG PAT 
13234 ; 6648 MLD2 = .BG_PAT; 
13235 ; 6649 MLE2 = .BG PAT; 
13236 ; 6650 DAT_DM = ONE; 'SET DATA DIAG MODE 
13237 ; 6651 LAST _BLK_XFER (); 'SET UP A LAST BLOCK XFERR 
13508 : $638 MLCST = write; 'DO A WRITE FUNCTION 
13240 ; 6654 incr WRO_CNT from 0 to 127 do ‘WRITE THE LAST BLOCK WITH THE BG PATTERN 
| 13241 ; 6655 begin 
| 13262 ; 6656 DELAY (ONE_US); 
| 15243 ; 6657 DAT_CLK = ONE; 
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end; 


CLR_MBUS; 

DAT_DM = ONE; 
LAST _BLK_ MFER (); 
MLCST = read; 
DELAY (ONE_US); 


incr WD_CNT from 0 to 127 do 


23-OCT-80 09:11 PAGE 


E 
274 


22-Oct-1980 10:47: 
22-Oct-1980 10:45: 


'SET DATA DIAG MODE 
'SET UP A LAST BLOCK XFERR 
!DO A READ FUNCTION 


'READ THE LAST BLOCK FOR BG PATTERN 


egin 
PD TEMP = .MLPD; 'GET PROM DATA 
DAT_CLK = ONE; 'CLOCK OUT THE DATA WORD 
DELAY (ONE _US); 
RD_LNG_WRD; 'READ THE DATA WORD 
incr NIB_PTR from 0 to 9 do 'LOOK AT 10 NIBBLES 
begin 
if .PD_TEMP C.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR, .BG_PAT, ERR_FLG); 
'FIND GOOD NIBBLES AND COMPARE THEM 
if -ERR_FLG IS_SET 'SEE IF ERROR WAS FOUND 
agg” 
begin ‘ERROR IF FLG IS SET 
ERRDF (81, INTER, 0); 
PRINTB (THR_ FMT, PHR 4, WRD %, ne 22); 
PRINTB (TWO-FMT, FNC_13, WRO_5 
EXIT_TST; 
end; 
end; 
end; 
END_CNT = .LST_BLK - 1; ‘END AT LAST BLOCK -1 
MLDT = ZEROES; ‘LOAD DATA DIAG REG WITH COMP BG PAT 
ALD? = ZEROES; 
MLE2 = ZEROES; 
incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
begin 
CL -MBUS; 
DAT_DM = ONE; 'SET DATA DIAG MODE 
FIRST _BLK_ XFER (); 'SET UP A FIRST BLOCK XFERR 
MLCS1°= write; 'DO A WRITE FUNCTION 
incre BLK_CNT from 0 to .END_CNT do 'CLOCK THE ADDRESS COUNTER UP TO END_CNT 
incr ADRS_CNT from 0 to 127 do 
begin 
DAT_CLK = ONE; 


44 TOPS=20 Bliss-16 V2(206) 
32 PA:<NEALE>BL2ML4.BLI.2 (70) 


SEQ 0277 
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CZMLAAO ML-11 LOGIC 1 
HARDWARD TEST SECTION SEQ 0278 
13301 ;ML4 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
A ea08 3 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (70) 
13304 ; 6710 end; 
| 13305 ; 6711 
| 13306 ; 6712 CLR_MBUS; 
13307 : 6713 DAT-DM = ONE; 'SET DATA DIAG MODE 
| 13308 ; 6714 LAST_BLK_XFER (); iSET UP A LAST BLOCK XFERR 
13309 ; 6715 MLCST = fread; 'DO A READ FUNCTION 
13310 ; 6716 DELAY (ONE_US); 
13311: 6717 
13312 ; 6718 incr WD_CNT from 0 to 127 do 'READ THE LAST BLOCK FOR BG PATTERN 
| 13313; 6719 begin 
13314 : 6720 PD TEMP = ,MLPD; 'GET THE PROM DATA 
13315 ; 6721 DAT_CLK = ONE; 'CLOCK OUT DATA WORD 
13316 ; 6722 DELAY (ONE _US); 
13317 ; 6723 RD_LNG_WRD; ‘READ DATA WORD 
13318 ; 6724 
13319 ; 6725 incr NIB_PTR from 0 to 9 do ‘LOOK AT 10 NIBBLES 
13320 ; 6726 begin 
13321 ; 6727 
13328 ; 6728 if .PD_TEMP [.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR, .BG_PAT, ERR_FLG); 
13324 ; 6730 'FIND GOOD NIBBLES AND COMPARE THEM 
13325 ; 6731 
13326 ; 6732 if .ERR_FLG IS_SET 'SEE IF ERROR WAS FOUND 
13327 ; 6733 then 
13328 ; 6734 begin ‘ERROR IF FLG IS SET 
13329 ; 6735 ERRDF (82, ASYNC, 0); 
13330 ; 6736 PRINTB (THR_FMT, WRD_5O, WRD_51, WRD_10); 
13331; 6737 DODU_FLG = ONE; 
13332 ; 6738 end; , 
13533 ; 6739 
13334 ; 6740 end; 
13335 ; 6741 
13336 ; 6742 end; 
13337 ; 6743 
13338 ; 6744 END CNT = .END CNT + 1; 'NOW END AT THE LAST BLOCK 
13339 ; 6745 BG_PAT = not .8G_PAT; ‘COMPLIMENT THE BG PATTERN AND REPEAT 
13340 ; 6746 end; 
13341 ; 6747 
13342 ; 6748 ENDSUB; 
13343 ; 6749 
13344 ; 6750 if .DODU_FLG IS_SET ‘DROP THIS UNIT IF DODU_FLG IS_SET 
13345 ; 6751 th *~ 
13346 ; 6752 bogie 
13347 : 6753 DObU (.ML_LUN); 
13348 ; 6754 DOCLN; 
13349 ; 6755 end; 
13350 ; 6756 
13351 ; 6757 ENDTST; 
13355 
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CZMLAAO ML=11 LOGIC 1 
HARDWARD TEST SECTION SEQ 0279 
13357 :ML4 22-0ct-1980 10:47:44 TOPS 
13328 ; 22-0ct-1980 10:45:32 PA:< 
13363 046220 004167 135634 $128: JSR R1,SSAVES ; 6604 
13364 046224 162706 000010 SuB_ «#10, SP 
13365 046230 104402 1$: TRAP = ; 6641 
| 13366 046232 152777 000040 143500 BISB #40,aML.REG+40 : 6643 
| 13367 046240 016705 143724 MOV ML .DUT,RS 
13368 046244 042705 177770 BIC #177776, R5 
13369 046250 142777 000007 143462 BICB = #7, ML. REG +40 
13370 046256 150577 143456 BISB  =—- RS, AML. REG+40 
| 13371 046262 005066 000002 CLR 2($P) : DODU.FLG 6645 
| 13372 046266 012701 177777 MOV #-1,R1 > *,BG.PAT 6646 
13373 046272 010177 143572 MOV R1,aML .REG*170 ; BG.PAT,* 6647 
13374 046276 010177 143576 MOV R1.aML.REG+200 : BG.PAT.* 6648 
13375 046302 010177 143552 MOV R1.aML.REG*160 : BG.PAT.* 6649 
13376 046306 152777 000010 143504 BISB #10,aML.REG+120 : 6650 
13377 046314 004767 144254 JSR PC,LAST.BLK.XFER : 6651 
13378 046320 012777 000061 143352 MOV #61, aML.REG : 6652 
13379 046326 005002 CLR R2 > WRD.CNT 6654 
13380 046330 012703 000001 2$: MOV #1,R3 + &, $$TMP2 6656 
13381 046334 001411 3$: BEQ 6$ 
13382 046336 016704 133554 MOV LSDLY,R4 ; *,SSTMP1 
13383 046342 001404 BEQ 5$ 
13384 046344 005066 000006 4$: CLR 6(SP) : S$TMP 
13385 046350 005304 DEC R4 : $$TMP1 
13386 046352 001374 BNE 4$ 
13387 046354 005303 5$: DEC R3 : $$TMP2 
13388 046356 000766 BR 3$ 
13389 046360 152777 000020 143432 68: BISB #20, aML.REG+120 : 6657 
13390 046366 005202 INC R2 : WRD.CNT 6654 
13391 046370 020227 000177 CMP R2,#177 > WRD.CNT,* 
13592 046374 003755 BLE 2$ 
13393 046376 152777 000040 143334 BISB #40,aML.REG+40 : 6658 
13394 046404 016705 143560 MOV ML .DUT,RS 
13395 046410 042705 177770 BIC #177776, R5 
13396 046414 142777 000007 143316 BICB  —s« #7, AML. .REG*#40 
13397 046422 150577 143312 BISB = RS .@ML.REG*40 
13398 046426 152777 000010 143364 BISB = #10 ,aML.REG+ 120 ; 6661 
13399 046434 004767 144134 JSR PC, LAST.BLK.XFER : 6562 
13400 046440 012777 900071 143232 MOV #71, aML REG : 6663 
13401 046446 012703 000001 MOV #1,R3 > ©, $$TMP2 6664 
13402 046452 001411 7$: BEQ 10$ 
13403 046454 016704 133436 MOV LSDLY,R4 : *, SSTMP1 
13404 046460 001404 BEO %$ 
13405 046462 005066 000006 8$: CLR 6(SP) : $STMP 
13406 046466 005304 DEC RG > $$TMP1 
13407 046470 001374 BNE 8% 
13408 046472 005303 9: DEC R3 : $$TMP2 
13409 046474 000766 BR 7$ 
13410 046476 005002 10$: CLR R2 > WD.CNT 6666 
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CZMLAAO ML-11 LOGIC 1 
HARDWARD TEST SECTION SEQ 0280 
13412 >ML4 22-0ct-1980 10:47:44 TOPS 
tod ; 22-Oct-1980 10:45:32 PA:< 
13415 046500 017767 143426 163154 118: MOV aML .REG*+230,PD. TEMP : 6668 
43616 046506 152777 000020 143304 BISB #20, aML.REG+120 : 6669 
| 13417 046514 012703 000001 MOV #1,R3 + ©, $$TMP2 6670 
| 13418 046520 001411 12$:  BEQ 15$ 
| 13419 046522 016704 133370 MOV LSDLY,R4 : *,$STMP1 
13420 046526 001404 BEQ 14$ 
13421 046530 005066 000006 13$: CLR 6(SP) : $$TMP 
13422 046534 005304 DEC RG : $$TMP1 
13423 046536 001374 BNE 13$ 
13424 046540 005303 14$: DEC R3 : $$TMP2 
13425 046542 000766 BR 12% 
13426 046544 017767 143320 141142 15%: MOV aML.REG+170,01. TEMP 
13427 046552 017767 143322 141136 MOV @ML .REG+200,02. TEMP 
13428 046560 017767 143274 141132 MOV @ML .REG+160,€2. TEMP 
13429 046566 005003 CLR R3 : NIB.PTR 6673 
13430 046570 010304 16$: MOV R3,R4 ; NIB.PTR,* 6676 
13431 046572 006204 ASR RG 
13432 046574 006204 ASR R4 
13433 046576 006204 ASR RG 
13434 046600 062704 011662 ADD #PD.TEMP,RG 
13435 046604 010446 MOV R4,-(SP) 
13436 046606 010346 MOV R3,-(SP) : NIB.PTR,* 
13437 046610 042716 177770 BIC #177770, (SP) 
13438 046614 012746 000001 MOV #1,-(SP) 
13439 046620 005046 CLR -($P) 
13440 046622 004767 134254 JSR PC,BL$GT2 
13441 046626 062706 000010 ADD #10,5P 
13442 046632 005700 TST R 
13443 046634 001011 BNE 17$ 
13444 046636 010346 MOV R3,-(SP) : NIB.PTR,* 
13445 6640 010146 MOV R1,-(SP) ; BG.PAT,* 
13446 046642 012746 000012 MOV #12,-(SP) 
13447 046646 060616 ADD SP, (SP) : ERR.FLG.* 
13448 046650 004767 144004 JSR PC-TST.LNG.WRD 
13449 046654 062706 000006 ADD #6,SP 
13450 046660 026627 000004 000001 173%: CMP 4(§P) #1 : ERR.FLG,* 6680 
13451 046666 001037 BNE 18$ 
13452 046670 104455 TRAP =‘ 55 ; 6683 
13453 046672 000121 .WORD 121 
13454 046674 007622 WORD INTER 
13455 046676 000000 “WORD 0 ' 
13456 046700 012746 007254 MOV #FNC.22,-(SP) : 6684 
13457 046704 012746 005770 MOV #WRD.13.-(SP) 
13458 046710 012746 006630 MOV #PHR.4,-(SP) 
13459 046714 012746 005366 MOV #TKR.FMT,-(SP) 
13460 046720 012746 000004 MOV #4,-(SP) 
13461 046724 0106 MOV SP, RO : SP,* 
13462 046726 104414 TRAP —s-_:‘14 
13463 046730 012716 006454 MOV #WRD.56, (SP) : 6685 
13464 046734 012746 007136 MOV #FNC.13,-(SP) 
13465 046740 012746 005356 MOV #TWO.FMT,-(SP) 
| 13466 046744 012746 000003 MOV #3,-(SP) 
| 
} 
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000020 
000604 


000011 


000177 
141322 
143050 
143054 
143030 


000040 


000061 


000020 
000177 


000040 


000001 


132700 
000006 


142700 


142662 
142730 
142576 


142702 


142576 


142560 
142626 
142474 
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18$: 


19$: 


20$: 
21$: 


22$: 


23$: 


248: 


258: 
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SP ,RO 
14 

63 
#20,SP 
37$ 


R? 
R3,#11 
16$ 
R2 

R2,#177 

11$ 

LST.BLK, (SP) 
(SP) 

ML .REG+170 
aML .REG+200 
atl -REG+160 


5 
Sore ping 


PC,FIRST.BLK.XFER 
+ Senate 


22% 

R4 
#20,QML.REG+120 
R4 


R4 #177 
21$ 

R3 

R3, (SP) 

20$ 
#40,aML.REG+40 
ML .DUT,R4 
#177776, R4 
#7,,aML.REG+40 
R4.aML .REG+40 
#16, aML.REG+120 


PC,LAST.BLK.XFER 
. ” eee 


SEQ 0281 
22-0ct-1980 10:47:44 TOPS 
22-0ct-1980 10:45:32 PA:< 

; +4 

: 6680 
5 6682 
; NIB.PTR 6673 
; NIB.PTR,* 

: WO.CNT 6666 
; WO.CNT,* 

; *,END.CNT 6693 
; END.CNT 

: 6694 
: 6695 
H 6696 
; TWICE 6698 
a 6699 
: 6701 
: 6702 
; 6703 
; BLK.CNT 6705 
; ADRS.CNT 6707 
; 6709 
; ADRS.CNT 6707 
; ADRS.CNT,* 

; BLK.CNT 6705 
>; BLK.CNT,END.CNT 

j 6710 
; 6713 
: 6714 
: 6715 
3; *,SSTMP2 6716 


*,SSTMP1 


SSTMP 
$STMP1 


$S$TMP2 
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005002 


Sssoocsesess 


Sea 


142666 
000020 
000001 
132632 


000006 


011662 
177770 
000001 


133516 
000010 


000012 


143246 
000006 
000004 


005740 


000004 


000001 
000012 
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000001 


000014 


7ML4 


268: 
27$: 


28$: 
298: 


30$: 
31$: 


32$: 


33$: 


34$: 


R2 
QML .REG*+230,PD. TEMP 
~ a atta 


@ML.REG+170,01. TEMP 
@ML .REG+200,02. TEMP 
gene SOR ie Oe 


R 
R3,R4 
R4 

R4 


R4 
#PD.TEMP,R4 
R4,-(SP) 
R3,-(SP) 
#177770, (SP) 
#1,-(SP) 
-(§P) 
PC,BL$GT2 


#10,SP 
RO 


#6,SP 
4(SP) ,#1 


#WRD.50,-(SP) 
#THR FMT ,-(SP) 
#4,-(SP) 

SP ,RO 

14 


#1,14(SP) 


#12,SP 
R3 


WD.CNT 


; *,$STMP2 


*,SSTMP1 


$STMP 
$STMP1 


$STMP2 


; NIB.PTR 
; NIB.PTR,* 


NIB.PTR,* 


NIB.PTR,* 
BG.PAT,* 


; ERR.FLG,* 


; ERR.FLG,* 


SP,* 
* ,DODU.FLG 
NIB.PIR 


22-0c t-198 
22-0ct-198 


0 
0 


1 
1 


0: 
0 


SEQ 0282 


47:44 


7:45:32 


6725 
6728 


6732 
6735 
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'HARDWARD TEST SECTION SEQ 0283 
| 13580 ML4 22-0¢t-1980 10:47:44 TOPS 
S28) ; 22-0ct-1980 10:45:32 PA:< 
13583 047502 020327 000011 CMP R3,#11 ; NIB.PTR,* 
13584 047506 003707 BLE 32$ 
13585 047510 005202 INC R2 ; WD.CNT 6718 
13586 047512 020227 000177 CMP R2,#177 ; WO.CNT,* 
13587 047516 003647 BLE 27$ 
13588 047520 005216 INC (SP) 3; END.CNT 6744 
13589 047522 005101 COM R1 ; BG.PAT 6745 
13590 047524 005205 INC R5 : TWICE 6698 
13591 047526 020527 000001 CMP R5,#1 ; TWICE,* 
13592 047532 003002 BGT 35$ 
13593 047534 000167 177272 JMP 19% 
13594 047540 104467 35$: TRAP 67 : 6746 
13595 047542 006000 ROR RO 
13596 047544 103002 BHIS 36% 
13597 047546 000167 176456 JMP 1$ 
13598 047552 026627 000002 000001 36$: CMP 2(SP) #1 : DODU.FLG,* 6750 
13599 047560 001004 BNE 7$ 
13600 047562 016700 142400 MOV ML.LUN,RO ; 6753 
13601 047566 104451 TRAP 1 
13602 047570 104444 TRAP 4 
13603 047572 062706 000010 37$: ADD #10,SP 3 6604 
13604 047576 000207 RTS 
13605 
13606 ; Routine Size: 376 words 
13007 ; Maximum stack depth per invocation: 18 words 
13613 
13617 
13621 047600 T28:: 
13022 047600 004767 176414 1$: JSR PC,$T28 6755 
13623 047604 104466 TRAP 66 
13624 0476 006000 ROR RO 
13625 047610 103773 BLO 1$ 
13626 047612 000207 RTS PC 
13627 
13628 ; Routine Size: 6 words 
13629 ; Maximum stack depth per invocation: 0 words : 
13634 ;ML4 22-0ct-1980 10:47:44 TOPS=-20 Bliss-16 V2(206) 
ta H § 22-Oct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (70) 
13637 ; 6758 '<BLF/PAGE> 


| * ee ee 
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LOGIC | 
HARDWARD TEST SECTION SEQ 0284 
| 13639 :ML4 22-0ct-1980 10:47:44  TOPS-20 Bliss-16 v2(206) 
ee ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (71) 
13642 ; 6759 |! 
13643 ; 6760 ! 
13644 ; 6761 BGNTST; 
13645 ; 6762 
13646 ; 6763! 44 
13647 ; 6764 | TEST NUMBER: TST 29 
13648 ; 6765 | 
13649 : 6766 | TEST NAME: ARRAY MODULE SELECTION TEST 
13650 ; 6767 =! 
13651 ; 6768 | TEST DESCRIPTION: 
13652 ;: 6769 =! 
13653 ; 6770 ! TEST FOR UNIQUE ARRAY MODULE 
13654 ; 6771 ! SELECTION BY: 
13655 ; 6772 ! 
13656 ; 6773‘! 1. WRITING THE RESPECTIVE ARRAY 
13657 ; 6774 |! MODULE POSITION NUMBER INTO 
13658 ; 6775 |! THE FIRST GOOD NIBBLE FOUND 
13659 ; 6776 |! IN THE ARRAY. DO FOR ALL 
13660 ; 6777! PRESENT ARRAYS. 
13661 ; 6778 =! 
13662 ; 6779 |! 2. READ THE ARRAYS FOR THEIR 
13663 ; 6780 ! RESPFCTIVE POSTION NUMBERS. 
13664 ; 6781 ! 
13665 ; 6782 |! IMPLICIT INPUTS: 
13666 ; 6783 =! PD_TEMP: 
13667 ; 6784 =! A GIT VECTOR OF 16 BITS WHERE 
13668 ; 6785 ! THE READ PROM DATA IS STORED 
13669 ; 6786 ! AND ACCESSED FROM. 
13670 ; 6787 =! 
13071 ; 6788 =! GLOBAL OWN LOCATION TO THIS 
13672 ;: 6789 =! TST. 
13673 ; 6790 ! 
13674 ; 6791! 10 BUF : 
13675 ;: 6792 ! A VECTOR OF 256 WORDS WHERE 
13676 ; 6793! DATA FOR MBUS READS AND WRITE 
13677 ; 6794! FUNCTION ARE FOUND. 
13678 : 6795! 
13679 : 6796! A GLOBAL OWN LOCATION TO 
13680 ; 6797! THIS TEST. 
13681 ; 6798 =! 
13682 ; 6799! 
13683 ; 6800 !-- 
13684 ; 6801 
13685 ; 6802 local 
13686 ; 6803 WRDS_TSTED, ‘WORDS TESTED 
13687 ; 6804 ARR_SEL, 'ARRAY SELECT 
13688 ; 6805 FND-GD_NIB, 'FOUND GOOD NIBBLE 
13689 ; 6806 ARR_NUA; 'ARRAY NUMBER 
13690 ; 6807 
13691 ; 6808 ARR_SEL = ZEROES; 
13692 ; 6809 ARR-SEL = .ARR_SEL - .ARR_INC; ‘START ARR_SEL BACK ONE ARRAY 
13693 ; 6810 


- — 


! 
‘CZMLAAO ML-11 LOGIC TEST 
HARDWARD TEST SECTION 


13695 ;ML4 
13696 ; 
13697 
13698 ; 6811 
13699 ; 6812 
13700 ; 6813 
13701 ; 6814 
13702 ; 6815 
13703 ; 6816 
13704 ; 6817 
13705 ; 6818 
3706 ; 6819 
13707 ; 6820 
13708 ; 6821 
13709 ; 6822 
13710 ; 6823 
13711 ; 6824 
13712 ;: 6825 
13713 ; 6826 
13714 ; 6827 
13715 ; 6828 
13716 ; 6829 
13717 ; 6830 
13718 ; 6831 
13719 ; 6832 
13720 ; 6833 
13721 ; 6834 
13722 ; 6835 
137235 ; 6836 
137246 ; 6837 
13725 ;: 6838 
13726 ; 6839 
13/727 ;: 6840 
13728 ; 6841 
13729 ; 6842 
13730 ; 6843 
13731 ; 6844 
13732 ; 6845 
13733 ; 6846 
13734 ; 6847 
13735 ; 6848 
13736 ; 6849 
13737 ; 6850 
13738 ; 6851 
13739 : 6852 
13740 ; 6853 
13741 ; 6854 
13742 ; 6855 
13743 ;: 6856 
13744 ; 6857 
13745 ; 6858 
13746 ; 6859 
13747 ; 6860 
13748 ; 6861 
13749 ; 6862 


incr ARR_CNT from 0 to 


MACRO M1113 23-OCT-80 09:11 


.OP_NUM_ARR do 
begin 


Q 8 
A ~TARR SEL + 
MLDA = SARR_SEL; 
MLCS1 = write; 
do 

begin 

oe (ONE _US) ; 


D_TEMP = -MLPD; 
.WRDS_TSTED + 1; 


ARR_INC; 


7ML 
URES” TSTED = 
incr CNT from 0 to 8 do 
if .PD_TEMP C.CNT) IS_NOT 
then 
begin 


case .CNT from 0 to 8 
set 


, 3 
(MLD1)<0, 4> = 


Ci) : 
(MLD1)<4, 4> = 


[2] : 
(MLD1)<8, 4> = 


(3) : 
(MLD1)<12, 4> 


(4] : 
(MLD2)<0, 4> = 


(5] : 
(MLD2)<4, 4> = 


(6) : 
(MLD2)<8, 4> = 


(7] : 
(MLD2)<12, 4> 


(8) : 


Mm 6 
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22-Oct-1980 10:47:44 
22-Oct-1980 10:45:32 


'TEST ALL PRESENT ARRAYS 


TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BL1.2 (71) 


'SET DATA DIAG MODE 

‘LOAD WORD a. 

'LOAD 10_BUF 

'LOOK AT NEXT ARRAY 

'LOAD DSA WITH SELECTED ARRAY AT BLOCK ZERO 
'DO A WRITE FUNCTION 


'THIS LOOP WRITES ARRAY NUMBERS TO THE ARRAYS 
'GET THE PROM DATA 
'COUNT WORDS TESTED 
‘LOOK AT 9 NIBBLES 


_SET 'FIND A GOOD NIBBLE 
of 'SELECT AND LOAD GOOD NIBBLE WITH ARRAY CNT 
ARR_CNT; 'NIBBLE 0 
.ARR_CNT; 'NIBBLE 1 
.ARR_CNT; 'NIBBLE 2 
= .ARR_CNT; 'NIBBLE 3 
.ARR_CNT; 'NIBBLE 4 
LARR_CNT; 'NIBBLE 5 
.ARR_CNT; 'NIBBLE 6 
= .ARR_CNT; 'NIBBLE 7 


SEQ 0285 


ee ee Sar we 


a ie ee, t 


-———— 


'CZMLAAO ML-11 
| HARDWARD TEST 
7ML4 
es ; 


-* 
Ww 
~“ 
to J 
Be Be Be Oe Be Be Be Oe Be Be Se Bs Be Be Se Be Se Os Se He Be Be Be Se Ge Oe Oe Ss Be Ss Bs Ge Bs Be Be Oe Oe Bs Bs Se Se Se Ss Se Be Ss Os Be SE Os Se Be 


LOG 
SEC 





IC TEST 
TION 


ARR_SEL = ZEROES: 
ARR_SEL = 


incr ARR_CNT from 0 to .OP_NUM_ARR do 


MACRO M1113 23-OCT-80 09:11 


(MLE2)<8, 4> = 


FND_GD_NIB = ONE; 
exitloop; 
end; 


DAT_CLK = ONE; 


en 
until (.FND_GD_NIB IS_SET ) or (.WRDS_TSTED eql 14); 


if .WRDS_TSTED eql 14 
then 
Pehor (111, INTER, 0); 
PRINTB (SEV_FMT, WRD_ 14, PHR_10, 
EXIT_TST; 
end; 


end; 


ARR _SEL - .ARR_INC; 
egin 
BGNSUB; 
CLR_MBUS; 
FND-GD_NIB = ZERO; 
M™= ONE 
not 365; 
_BUF ; 
ARR SEL + 


A .ARR_INC; 
MLDA = ” SARR set; < 


do 


be 
DELAY (ONE _US) ; 
PD_TEMP = TMLPD; 


incr CNT from 0 to 8 do 


if .PD_TEMP C.CNT) IS_NOT_SET 
then 


bat cux = ONE; 


case .CNT from 0 to 8 of 
set 


(0) : 


N 6 
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«ARR_CNT; 


FNC_15, WRD_12, 


22-Oct-1980 10:47:44 
22-Oct-1980 10:45:32 


'NIBBLE 8 


!SET FOUND GOOD NIBBLE F 
'EXIT THE LOOP 


TOPS=20 Bliss-16 V2(206) 
PA: <NEALE>BL2ML4.BL1.2 (71) 


LG 


!CLOCK GOOD NIBBLE INTO MEMORY & GET NXT PROM WRD 


'1F 14 WORDS TSTED 
'THEN ERROR AND EXIT TES 
FNC_17, WRD_37, 


!START ARR SEL BACK ONE 
'TEST ALL PRESENT ARRAYS 


'SET DATA DIAG MODE 
‘LOAD WORD COUNT 

‘LOAD UBUS ADDRESS 

‘LOOK AT NEXT ARRAY 
‘LOAD DSA WITH ARRAY SEL 
'DO A READ FUNCTION 


'THIS LOOP READS ARRAYS 


!GET THE PROM DATA 
‘LOOK AT 9 NIBBLES 
‘FIND THE GOOD NIBBLES w 


‘CLOCK ARRAY WORD OUT 
SELECT AND READ GOOD NI 


TED 
WRD_56); 


AGAIN 


ECT 


FOR ARRAY NUMBERS 


HERE ARR NUM IS STORED 


BBLE 


SEQ 0286 


!DO UNTIL FOUND GOOD NIBBLE OR 14 WRDS TSTED 


po ML-11 LOGIC TEST 

|HARDWARD TEST SECTION 
13807 ;ML4 
13808 ; 
13809 
13810 ; 6915 
13811 ; 6916 
13812 ; 6917 
13813 ; 6918 
13814 ; 6919 
13815 ; 6920 
13816 ; 6921 
13817 ; 6922 
13818 : 6923 
13819 ; 6924 
13820 ; 6925 
13821 ; 6926 
13822 ; 6927 
13823 ; 6928 
13824 ; 6929 
13825 ; 6930 
13826 ; 6931 
13827 ; 6932 
13828 ; 6933 
13829 ; 6934 
13830 ; 6935 
13831 ; 6936 
13832 ; 6937 
13833 ; 6938 
13834 ; 6939 
13835 ; 6940 
13836 ; 6941 
13837 ; 6942 
13838 ; 6943 
13839 ; 6944 
13840 ; 6945 
13841 ; 6946 
13842 ; 6947 
13843 ; 6948 
13844 ; 6949 
13845 ; 6950 
13846 ; 6951 
13847 ; 6952 
13848 ; 6953 
13849 ; 6954 
13850 ; 6955 
13851 ; 6956 
13852 ; 6957 
13853 ; 6958 
13854 ; 695 
13855 ; 6960 
13856 : 6961 ENDTST; 
13860 


ARR_NUM 


(iJ : 
ARR_NUM 


(2) : 
ARR_NUM 


C32 « 
ARR_NUM 


(4] : 
ARR_NUM 


(5] : 
ARR_NUM 


(6) : 

ARR_NUM 

a3 
ARR_NUM 


J: 
ARR_NUM 
tes; 


FND_GD_NIB = ONE; 


exitloop; 
end; 


a CLK = ONE; 


until .FND_GD_NIB IS_SET; 


if 
then 


-ARR_CNT neq .ARR_NUM 


"begin 
ERRDF (83, ASYNC, 


0); 
PRINTB (FOR_ FMT, “WRD_ 39, FNC_17, + 37, WRD_10); 


PRINTB (FMT_14, .ARR_ CNT, 
end; 


ENDSUB; 


end; 


' —_— ; 
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22-0ct-1980 10:4 
22-0ct-1980 10:4 


-(MLD1)<0, 4>; 


«(MLD1)<4, 4; 


.(MLD1)<8, 4>; 


~(MLD1)<12, 4>; 


-(MLD2)<0, 4>; 


~(MLD2)<4, 4>; 


-(MLD2)<8, 4>; 


.(MLD2)<12, 4>; 


.(MLE2)<8, 4>; 


'NIBBLE 


!NIBBLE 


'NIBELE 


!NIBBLE 


!NIBBLE 


'NIBBLE 


'NIBBLE 


'NIBBLE 


'NIBBLE 


'SET FND GD NIB 
'EXIT LOOP 


oOo aN 
ue 


FLG 


NS 


TOPS=-20 Bliss-16 V2(206) 
PA: <NEALE>BL2ML4.BLI.2 (71) 


'CLOCK OUT NEXT PROM LOCATION 

'REPEAT UNTIL FOUND THE GOOD NIBBLE 
'SEE IF ARRAY CONTAINS IT'S ARR NUM 
'ERROR IF NOT THERE 


ARR _NUM) 


SEQ 0287 


r 
| 


CZMLAAO ML-11 LOGIC TEST 


'HARDWARD TEST SECTION 


13864 
13868 047614 ehh 


066107 


134240 
000006 


140472 
140464 


000702 


142042 


000010 


000001 
132142 
000004 


142132 


011662 


177770 
000001 


133040 
000010 


050062 


- me % ; 
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000002 


142064 18: 


142046 


2$: 
%$: 


4$: 


53: 
141662 6$: 


7$: 


R1,$SAVE5 
#6,SP 


ARR.INC,R5S 
Pampa cnei iat: 


27$ 
#40 ,aML.REG+40 


R2.@ML.REG+4O 
(SP) 


Re 
#10,aML.REG+120 
#-460,aML.REG+10 
#10.BUF ,aML.REG+20 
ARR.INC.RS 

RS, aML.REG+30 

#61, aML.REG 

#1,R1 


6$ 
LSOLY,R2 
5$ 


@ML .REG*+230,PD. TEMP 
RG 

R2 

R2,R1 

R1 

R1 


R1 
#PD.TEMP,R1 
R1,-(SP) 


R2,-(SP) 
#177770, (SP) 
#1,-(SP) 
-(§P) 

PC ,BL$GT2 
#i0,SP 

RO 

23$ 

R2,R1 

R1 

8$(R1),PC 


SEQ 0288 
22-0¢t-1980 10:47:44 TOPS 
22-0ct-1980 10:45:32 PA:< 

5 ; 6757 
; ARR.SEL 6808 
3 *,ARR.SEL 6809 
: 6811 
; ARR.CNT 

é 6812 
; FND.GD.NIB 6814 
; WRDS.TSTED 6815 
é 6816 
3 6817 
3 6818 
; *,ARR.SEL 6819 
; ARR.SEL,* 6820 
3 6821 
; *,$STMP2 6825 
; *,SSTMP1 

; SSTMP 

; SSTMP1 

; SSTMP2 

3 6826 
; WRDS.TSTED 6827 
; CNT 6829 
; CNT,* 6831 
s CuT.* 

; CNT,* 6835 


CZMLAAO ML=-11 LOGI 
'HARDWARD TEST SECT 


050276 
00 


C TEST 
10N 


000301 


177760 
000917 


170377 
007400 


007777 
170000 
141642 


177760 
000017 


177417 
000360 
141602 


dD 7 
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141750 


141722 


141676 


141646 


141634 


141606 


3ML4 


8$: 


9$: 


10$: 


11$: 
12$: 


13$: 


14$: 
15$: 


16$: 


17$: 
18$: 


R3,R1 
#177760,R 


1 
#17,QML.REG+170 
11$ 


R1 
#177417,R1 


#360 ,aML .REG+170 
R1,aML .REG+170 
22% 


R3,R1 


#170377,R1 
ee 


R3,R1 


1 
#7777,R1 


#170000, aML .REG+170 
Rt aml .REG+170 


R3,R1 
#177760,R1 


#17 ,aML -REG+200 


R 
#177417,R 


7 1 
#360, aML .REG+200 
Boge meee 


R3,R1 
R1 


; ARR. 


; ARR. 


; ARR. 


; ARR. 


; ARR. 


; ARR. 


; ARR, 


CNT,* 


CNT,* 


CNT,* 


CNT,* 


CNT,* 


CNT,* 


CNT,* 


22-0ct-198 
22-0c t-198 


0 
0 


10 
10: 


SEQ 0289 


247:44 


45:32 


TOPS 
PA:< 


6839 


6842 


6835 
6845 


6848 


6835 
6851 


6854 


6835 
6857 


— 7 
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‘CZMLAAO ML=11 LOGIC T 
'HARDWARD TEST SECTION SEQ 0290 
| 
| 13974 7ML4 22-0ct-1980 10:47:44 TOPS | 
fad ; 22-0ct-1980 10:45:32 PA:< | 
| 13977 059204 042701 170377 BIC #170377,R1 | 
13978 050310 042777 007400 141562 BIC #7400,aML.REG*+200 
13979 050516 000413 BR 20% 
13980 050320 010301 19$: MOV R3,R1 ; ARR.CNT,* 6860 
981 050322 000301 SWAB R1 
13982 050324 006301 ASL R1 
13983 050326 006301 ASL R1 
13984 050330 006301 ASL R1 
13985 050332 006301 ASL 
13986 050334 042701 007777 BIC #7777,%1 
13987 050340 042777 170000 141532 BIC #170000, aML .REG+200 
13988 050346 0650177 141526 208: BIS R1,aML.REG*+200 
13989 050352 000411 BR 22% F 6835 
13990 050354 010301 21$: MOV R3,R1 ; ARR.CNT,* 6863 
13991 050356 000301 SWAB he 
13992 050360 042701 170377 BIC #170377,R1 
13993 050364 042777 007400 141466 BIC #7400,aML.REG+160 
13994 050372 050177 141462 BIS R1,@ML.REG+160 
13995 050376 012716 000001 228: MOV #1, (SP) ; *,FND.GD.NIB 6866 
13996 050402 000406 Be 24% 3 6867 
13997 050404 005202 238: INC R2 ; CNT 6829 
13998 050406 020227 000010 CMP R2,#10 : CNT,* 
13999 050412 003002 BGT 24% 
14000 050414 000167 177364 JMP 7$ 
14001 050420 152777 000020 141372 248: BISB #20,aML.REG+120 ; 6870 
14002 050426 021627 000001 CMP (SP) #1 : FND.GD.NIB,* 6872 
14003 050432 001405 BEQ 25$ 
14004 050434 020427 000016 CMP R4,#16 : WRDS.TSTED,* 
14005 050440 001402 BEQ 25$ 
14006 050442 000167 177274 JMP 2$ 
14007 050446 020427 000016 25$: CMP R4,#16 ; WRDS.TSTED,* 6874 
14008 050452 001035 BNE 268% 
14009 54 104455 TRAP 55 : 6877 
14010 0 000157 WORD 157 
14011 0504 007622 WORD INTER 
14012 050462 000000 WORD 
14013 050464 012746 006454 MOV #WRD.56,-(SP) : 6878 
14014 050470 012746 006232 MOV #WRD.37,-(SP) 
14015 050474 012746 007206 MOV #FNC.17,-(SP) 
14016 050500 012746 005760 MOV #WRD.12,-(SP) 
14017 050504 012746 007162 MOV #FNC.15,-(SP) 
14018 050510 012746 006740 MOV #PHR.10,-(SP) 
14019 050514 012746 005774 MOV #WRD.14,-(SP) 
14020 050520 012746 005452 MOV #SEV.FMT,-(SP) 
14021 050524 012746 000010 MOV #10,-(SP) 
14022 050530 010600 MCV SP,RO ; SP,* 
14023 050532 104414 TRAP 1 
14024 050534 104463 TRAP 63 
14025 050536 062706 000022 ADD #22,SP : 6874 
14026 050542 000167 000562 JMP 56% : 6876 
14927 050546 005203 26$: INC R3 : ARR.CNT 6811 
14028 050550 020366 000002 27%: CMP R3,2(SP) ; ARR.CNT,* 
| 


CZMLAAO ML-11 
HARDWARD TEST 


L 
$ 


14077 051004 
14078 051006 
14079 051014 
14080 051016 
14081 051020 
14082 051024 
14083 051026 
14084 051030 


0 
E 


Oa 


177064 


137534 
137526 


000516 
000040 


141102 


000010 
177400 


000001 
131204 
000004 


141174 


011662 
177770 
000001 
132104 
000010 
000020 


051024 
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000002 


141124 


140724 


141004 


298: 


30$: 
318: 


32$: 


33$: 
34$: 
35$: 


36%: 


. 2 
PAGE 288 


28% 

1$ 

R5 

ARR.INC,R5 

of NUM. ARR ,2(SP) 

3° 

#40 ,AML .REG*46 
.D R 


nf gam. REG+40 


nO. aML .REG+120 
#-400,aML.REG+10 
#10.BUF ,aML.REG+20 


$ 
aa neta 
R2,R1 
R1 
R1 


R1 
#PD.TEMP,R1 
+o <itpt 


nif7170, (SP) 
#1,-(SP 

-(§P) 

PC ,BL$GT2 
#10,SP 

RO 


50$ 
#20, QML .REG+120 
R2,R1 


R1 
36$(R1) , PC 
37$-36% 
388-368 
398-368 


ARR.SEL 
* ,ARR.SEL 


ARR.CNT 


; FND.GD.NIB 


* ,ARR.SEL 


: ARR.SEL,* 
: #,$$TMP2 


*,SSTMP1 


$$TMP 
$STMP1 


; SSTMP2 


CNT 
CNT,* 


; CNT,* 


> (NT,* 


22-0c t-1980 
22-0c t-1980 


10:4 
10:4 


7:44 
:32 


5 


SEQ 0291 





G 7 
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CZ7MLAAO ML=-1" LOGIC 1 

HARDWARD TEST SECTION SEQ 0292 
14086 ML4 22-0¢t-1980 10:47:44 TOPS 
Moye ; 22-0¢t-1980 10:45:32 PA:< 
14089 051032 0000464 .WORD 408-368 
14090 051034 000052 "WORD 418-368 
14091 051036 000060 WORD 42$-36$ 
14092 051040 0076 WORD 44$-36$ 
14093 051042 000104 WORD 45$-36$ 
14094 051044 000122 "WORD 47$-36$ 
14095 051046 117703 141016 37$:  MOVB  a@ML.REG+170,R3 : *, ARR.NUM 6915 
14096 051052 000440 BR 49$ 
14097 051054 117703 141010 38$: MOVB QML .REG*+170,R3 ; *,ARR.NUM 6918 
14098 051060 000413 BR 43$ 
14099 051062 017703 141002 39$: MOV aML.REG+170,R3 : #,ARR.NUM 6921 
14100 051066 000431 BR 48$ 
14101 051070 017703 140774 40$: MOV aML .REG+170,R3 : *,ARR.NUM 6924 
14102 051074 000417 BR 46$ 
14103 051076 117703 140776 41$:  MOVB = @ML.REG*200,R3 ; *,ARR.NUM 6927 
14104 051102 000424 BR 49$ 
14105 051104 117703 140770 42$:  MOVB — @ML. REG*200,R3 : *,ARR.NUM 6930 
14106 051110 006203 43$: ASR R3 * ARR.NUM 
14107 051112 006203 ASR R3 ‘ ARR.NUM 
14108 051114 006203 ASR R3 : ARR.NUM 
14109 051116 006203 ASR R3 * ARR.NUM 
14110 051120 000415 BR 49% 
14111 051122 017703 140752 44$: MOV ML .REG+200,R3 : +, ARR.NUM 6933 
14112 051126 000411 BR 488 
14113 051130 017703 140744 45$: MOV aML .REG+200,R3 ; *, ARR.NUM 6936 
14114 051134 006203 46$: ASR R3 ; ARR.NUM 
14115 051136 006203 ASR R3 ; ARR .NUM 
14116 051140 006203 ASR R3 : ARR.NUM 
14117 051142 006203 ASR R3 : ARR.NUM 
14118 051144 000492 BR 48% 
14119 051146 017703 140706 47$: MOV @ML .REG+160,R3 : *,ARR.NUM 6939 
14120 051152 000303 48$: SWAB R3 * ARR.NUM 
14121 051154 042703 177760 49$: BIC #177760,R3 : #,ARR.NUM 
14122 051160 012716 000001 MOV #1, (SP) ; *,FND.GD.NI8 6942 
14123 051164 000404 BR 518 : 6943 
14124 051166 005202 50$: INC R2 > CNT 6904 
14125 051170 020227 000010 CMP R2,#10 : CNT,* 
14126 051174 003661 BLE 35$ 
14127 051176 152777 000020 140614 51%:  BISB #20,aML.REG+120 : 6946 
14128 051204 021627 000001 CMP (SP) #1 : FND.GD.NIB,* 6948 
14129 051210 001233 BNE 30$ 
14130 051212 020403 CMP R4,R3 : ARR.CNT,ARR.NUM 6950 
14131 051214 001434 BEQ 52 
14132 051216 104455 TRAP 5 6953 
14133 051220 000123 “WORD 1 
14134 051222 007444 » WORD ASYNC 
14135 051224 000000 "wORD 0 
14136 051226 012746 005740 MOV #WRD.10,-(SP) 3 6954 
14137 051232 012746 006232 MOV #WRD.37,-(SP) 
14138 051236 012746 007206 MOV #FNC.17.-(SP) 
14139 051242 012746 006250 MOV #WRD.39,-(SP) 
14140 051246 012746 005400 MOV #FOR.FMT,-(SP) 


H 7 
EST MACRO M1113 23-OCT-80 09:11 PAGE 290 


CZMLAAO ML-11 LOGIC T 
HARDWARD TEST SECTION SEQ 0293 
14142 sML4 22-0¢t-1980 10:47:44 TOPS 
| bet ; 22-0ct-1980 10:45:32 PA:< 
/ 16145 051252 012746 000005 MOV #5,-(SP) 
~——- 14146 051256 010600 MOV SP,RO ¢ $?,* 
| 14147 051260 104414 TRAP 14 
| 14148 051262 010316 MOV R3, (SP) ; ARR.NUM,* 6955 
14149 051264 010446 MOV R4,- (SP) ; ARR.CNT,* 
/ 16150 051266 012746 005046 MOV #FMT, 14,-(SP) 
14151 051272 012746 000003 MOV #3, = (SP) 
14152 051276 010600 MOV SP.RO ; SP,* 
14153 051300 104414 TRAP 14 
14154 051302 062706 000022 ADD #22,SP 3 6952 
14155 051306 104467 52$: TRAP 67 : 6956 
14156 051310 006000 ROR RO 
14157 051312 103002 BHIS 54% 
14158 051314 000167 177264 53$: JMP 29% 
14159 051320 005204 54$: INC RG : ARR.CNT 6887 
14160 ool ese 020466 000002 55$: CMP ati ; ARR.CNT,* 


14163 051334 000207 RTS PC 


14165 ; Routine Size: 425 words 
14166 : Maximum stack depth per invocation: 18 words 


6 
14180 051336 T29:: 
14181 051336 004767 176252 1$: JSR + id ; 6959 


14185 051350 000207 RTS PC 
14187 ; Routine Size: 6 words 
14188 : Maximum stack depth per invocation: 0 words 


14161 051326 003772 BLE 
14162 051330 062706 000006 56$: ADD #6,SP ; 6757 
14195 ; 6962 !<BLF/PAGE> 

| 

| 

| 


CZMLAAO ML-11 LOG 


| IC TEST 
'WARDWARD TEST SECTI 


ON 


14197 :ML4 22-0ct-1980 10:47: 
14198 ; 22-0¢t-1980 10:45 
| 14199 
14200 ; 6963! 
14201 ; 6964 BGNTST; 
14202 ; 6965 
14203 ; 6966! ++ 
14204 ; 6967 |' TEST NUMBER: TST 30 
14205 ; 6968 =! 
14206 ; 6969 | TEST NAME: SEQUENCER EXISTENCE TEST 
14207 ; 6970 |! 
14208 ; 6971 |! TEST DESCRIPTION: 
14209 ; 6972 =! 
14210 ; 6973 |! TEST SEQUENCER TIMING AND CONTROL 
14211 ; 6974! LOGIC FOR EXISTENCE BY 
14212 ; 6975! 
14213 ; 6976 =! 1. FIRST WRITING THE GOOD BLOCK VIA DAT_DM MODE WITH A BACKGROUND 
14214 ; 6977! PATTERN OF ONES. 
14215 ; 6978 =! 
14216 ; 6979! 
ry 4 ; oe 2. VIA A MBUS WRITE FUNCTION WRITE ONES INTO THE GOOD BLOCK. 
14219 ; 6982 =! 3. THEN VIA DAT_DM READ GOOD NIBBLES IN THE GOOD BLOCK AND XOR THEM 
lessee 3 eS? AGAINST THE BACKGROUND PATTERN. 
14222 ; 6985! RECORD THE NUMBER OF NIBBLES THAT WERE UNCHANGED OR PARTIALLY CHANGED 
14223 ; 6986 =! BY THE MBUS WIRTE. 
14224 ; 6987! 
14225 ; 6988 =! 4. REPORT A FATAL ERROR AND DROP THIS UNIT IF THE NIBBLES TESTED EQUALS 
14226 ; 6989 =! THE COUNT OF UNCHANGED NIBBLES. 
14227 ; 6990 ! 
14228 ; 6991! REPORT AN INTERMEDIATE DIAGNOSIIC MESSAGE if AT LEAST SOME NIBBLES 
14229 ; 6992 ! WERE CHANGED BY THE MBUS WRITE. 
14230 ; 6993 ! 
14231 ; 6994! ImPLICIT Inputs: 
14232 ; 6995! 
14233 ; 6996! A the VECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND ACCESSED FROM. 
14234 ; 6997 =! 
14235 ; 6998 =! 10_BUF : 
14236 ; 6999 =! A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTIONS 
14237 ; 7000 ! ARE FOUND. 
14238 ; 7001 ‘!-- 
14239 ; 7002 
14240 ; 7003 local 
14241 ; 7004 BG PAT, ‘BACK GROUND PATTERN 
14242 ; 7005 Sum ' NIBBLE ARE BAD 
14243 ; 7006 NIB_TSTED, i NIBBLES TESTED 
14266 : 7007 ALL 'ALL NIBBLES ARE BAD 
14245 ; 7008 RESOLT ‘RESULTS OF XOR 
14246 ; 7009 
14247 ; 7010 CLR S3 
14248 ; 7011 BAT = ONES; ‘BACKGROUND EQL ONES 
14249 : 7012 MLB1 = .BG PAT; ‘LOAD DATA DIAG REG WITH BG PAT 
14250 ; 7013 MLD2 = .BG PAT; 
14251 ; 7014 MLE2 = .BG_PAT; 


my 
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fe TOPS=-29 Bliss-16 V2(206) 
:32 PA:<NEALE>BL2ML4.BLI.2 (72) 


SEQ 0294 


CZMLAAO ML-11 LOGIC TEST 
HARDWARD TEST SECTION 


7ML4 


oO ONOM 


Bo Be Be Se Se Be Be Be Be Be Se Se Be Ge Fe Ge Se Se Be Ge Se Be Ge Be Se Se Ge Be Be Be Be Se Se Ge Be Be Be Se Ge Se Ge Ge Se Ge Se Ge Se Ge Fe Ge Se Se 


Annan 


J 
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DAT_DM_XFER 
MLCS1 = writ 


incr WD_CNT from 0 to 127 do 


(ds 
e; 


begin 
DELAY (ONE US); 


DAT_CLK 
end; 
5 Raures “TER 
BAT = ONE; 


GD BLK_ XFER 
MLOSi = writ 


do 


OES; 


(); 
e: 


0 
until .DRY IS_SET; 


NIB_TSTED = ZEROES; 


22-0ct-1980 10:47:44 TOPS-20 Bliss-16 V2(206) 
22-Oct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (72) 


'SET UP A_ DATA DIAG XFERR AT THE GOOD BLOCK 
'DO A WRITE FUNCTION 


‘WRITE BLOCK WITH BG PAT 


'LOAD FIRST WORD OF IO_BUF 

'MAKE XFERR SET ON ONE ADRS 
'SET UP A GOOD BLOCK XFERR 

'DO A WRITE FUNCTION 


'DELAY UNTIL XFER TO COMPLETE 


DAT_DM_XFER (); 'SET UP SAME DATA DIAG XFERR 
MLCS1 = read; 'DO A READ FUNCTION 
DELAY (ONE _US); 
a from 0 to 112 do !READ 113 LONG WORDS 
egin 
PD TEMP = .MLPD; 'GET PROM DATA 
DAT_CLK = ONE; 'CLOCK OUT THE DATA WORD 
peLRY CONE _US); 
RD_LNG_WRD; 'READ THE DATA WORD 
incr NIB_PTR from 0 to 8 do ‘LOOK AT 9 NIBBLES 
if .PD_TEMP C.NIB_PTR] eql ZERO 'FIND GOOD NIBBLE 
then 
Met TSTED = .NIB_TSTED + 1; ‘INCREMENT COUNT OF NIBBLES TESTED 
XOR_LNG_WRD (, NIB_PTR, .BG_PAT, RESULT); 'XOR NIBBLE WITH BG PAT 
it -RESULT<O, 4> eql ZERO 'SEE IF ALL BITS IN NIBBLE WERE BAD? 
tnen 
ALL_BAD = .ALL_BAD + 1 ‘INCREMENT COUNT IF ALL BAD 
else 
if .RESULT<O, 4> neq %0'17' then SUM_BAD = .SUM_BAD + 1; 
'SEE IF SOME BITS IN NIBBLE WERE BAD 
end; ‘INCREMENT COUNT IF SOME BAD 


SEQ 0295 


CIMLAAO ML-11 LOGIC TEST 

|HARDWARD TEST SECTION 

/ 14309 ;ML4 
14310 ; 
14311 
14312 ; 7067 
14313 ; 7068 
14314 ; 7069 
14315 ; 7070 
14316 ; 7071 
14317 ; 7072 
14318 ; 7073 
14319 ; 7074 
14320 ; 7075 
14321 ; 7076 
14322 ; 7077 
14323 ; 7078 
14324 ; 7079 
14325 ; 7080 
14326 ;: 7081 
14327 ; 7082 
14328 ; 7083 
14329 ; 7084 
14330 ; 7085 
14331 ; 7086 
14332 ; 7087 
14333 ; 7088 
14334 ; 7089 
14338 
14342 051352 004167 
14343 051356 162706 
14344 051362 152777 
14345 051370 016705 
14346 051374 042705 
14547 051400 142777 
14348 051406 150577 


14 
14349 051412 012766 


14362 051500 001374 


end; 
ENDSUB; 


kK 7 
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2a -NIB_LTSTED eql .ALL_B 
t 


pear (84, SYNC, 0); 
PRINTB (SEV_FMT. WRD 22, PHR_4, WRD_9, WRD_12, WRD_23, FNC_5, WRD_19); 
— (.ML_LON) ; 


end 


else 
if 
then 


ENDTST; 


132502 


000061 
000001 
130426 
000006 


-SUM_BAD gtr ZERO 


PRRDE (85, INTER, 


AD 


SEQ 0296 


TOPS=20 Bliss-16 V2(206) 


22-Oct-1980 10:47:44 
45:32  PA:<NEALE>BL2ML4.BL1.2 (72) 


22-0ct-1980 10:4 


'WHERE ALL NIBBLES XFERR*ED ALL BAD? 
'ERROR IF ALL BAD 


'SEE IF SEE NIBBLE WERE BAD? 
'SOME BAD IS OK SO GIVE INTERMEDIATE ERROR 


0); 
PRINTB (SIX_FMT, PHR_4, WRD_9, WRD_12, WRD_23, FNC_5, WRD_19); 


end; 


$130: 
140350 


140332 


000002 
140442 
140444 
140416 


140224 


JSR 
Ss 


R1,$SAVES ; 6961 
#10,SP 

#40,aML.REG+40 “Te 7008 
ML .DUT,R5 

#177770,R5 


#7 ,QML.REG+40 
R5,@ML.REG+40 


#-1,2(SP) : *,BG.PAT 7011 

#-1.aML.REG+170 : 7012 
2(SP) ,aML.REG+200 + BG.PAT,* 7013 
2(SP).a@ML.REG+160 : BG.PAT.* 7014 
PC ,DAT.DM.XFER : 7015 
#61,aML.REG : 7016 
RO + WD.CNT 7018 
N, RI : &, $$TMP2 7020 

LSDLYR2 : *,$SSTMP1 

6 (SP) : $STMP 

R2 : $$TMP1 

3$ 


co _ ee 


L 7 
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IC 

HARDWARD TEST SECTION SEQ 0297 
14364 sML4 22-0¢t-1980 10:47:44 TOPS 
16369 ; 22-0ct-1980 10:45:32 PA:< 
14367 051502 005301 4$ DEC R1 : $$TMP2 
14368 051504 000766 BR 2$ 
14369 051506 152777 000020 140304 5$: BISB #20,aML.REG+120 : 7021 
14370 051514 005200 INC RO + WD.CNT 7018 
14371 051516 020027 000177 CMP RO,#177 + WD.CNT,#* 
14372 051522 003755 BLE 1$ 
14373 051524 152777 000040 140206 BISB #40,aML.REG+40 : 7022 
14374 051532 016705 140432 MOV ML.DUT,RS 
14375 051536 042705 177770 BIC #177770, R5 
14376 051542 142777 000007 140170 BICB = #7, aML.REG+40 
14377 051550 150577 140164 BISB) RS. an. REG+40 
14378 051554 005067 136562 CLR 10. BUF : 7025 
14379 051560 152777 000010 140152 BISB #10,aML.REG+40 : 7026 
14380 051566 004767 140750 JSR PC,GD.BLK.XFER : 7027 
14381 051572 012777 000061 140100 MOV #61,aML.REG : 7028 
14382 051600 105777 140144 6$: TSTB = ML. REG*+50 : 7032 
14383 057604 100375 BPL 6$ 
14384 051606 104402 7$: TRAP =. 2 
14385 051610 152777 000040 140122 BISB #40,aML.REG+40 : 7034 
14386 051616 016703 140346 MOV ML .DUT,R3 
14387 051622 042703 177770 BIC #177770, R3 
14388 051626 142777 000007 140104 BICB = #7, @ML.REG+40 
14389 051634 150377 140100 BISB R3,aML.REG+40 
14390 051640 005004 CLR RG : ALL.BAD 7036 
14391 051642 005016 CLR (SP) > SUM.BAD 7037 
14392 051644 005005 CLR RS > NIB.TSTED 7038 
14393 051646 004767 140754 JSR DAT.DM.XFER : 7039 
14394 051652 012777 000071 140020 MOV #71, aML.REG : 7040 
14395 051660 012701 000001 MOV #1,R1 + #,$$TMP2 7041 
14396 051664 001411 8$: BEQ 11$ 
14397 051666 016702 130224 MOV LSDLY,R2 > *,$STMP1 
14398 051672 001404 BEG 10$ 
14399 051674 005066 000006 9$: CLR 6(SP) : SSTMP 
14400 051700 005302 DEC R2 > $$TMP1 
14401 051702 001374 BNE $ 
14402 051704 005301 10$: DEC R1 : $$TMP2 
14403 051706 000766 BR 8$ 
14404 051710 005003 11$: CLR R3 : WD.CNT 7043 
14405 051712 017767 140212 137742 12$: MOV @ML .REG+230,PD. TEMP : 7045 
14406 051720 152777 000020 140072 BISB #20,aML.REG+120 : 7046 
14407 051726 012701 000001 MOV #1,R1 : *,$$TMP2 7047 
14408 051732 001411 13$: BEQ 16$ 
14409 051734 016702 130156 MOV LSDLY,R2 > *,S$STMP1 
14410 051740 001404 BEQ 15$ 
14411 051742 005066 000006 146$: CLR 6(SP) : $STMP 
14412 051746 005302 DEC R2 > $$TMP1 
14413 051750 001374 BNE 14$ 
14414 051752 005301 15$: DEC R1 : $STMP2 
14415 051754 000766 BR 13$ 
14416 051756 017767 140106 135730 16$: MOV aML .REG+170,01. TEMP 
14417 051764 017767 140110 135724 MOV aML .REG*200,02. TEMP 
14418 051772 017767 140062 135720 MOV ML .REG+160.E2. TEMP 


po 


Ni“ ree aa? hi 47 
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HARDWARD TEST SECTION SEQ 0298 
14420 M4 22-0ct-1980 10:47:44 TOPS 
Me 3 : 22-0ct-1980 10:45:32 PA:< 
14423 052000 005001 CLR R1 ; NIB.PTR 7050 
14424 052002 010102 17$: MOV R1,R2 > NIB.PTR,* 7052 
14425 052004 006202 ASR R2 

4426 052006 006202 ASR R2 
14427 052010 006202 ASR R2 
14428 052012 062702 011662 ADD #PD. TEMP ,R2 
14429 052016 010246 MOV Re. = ($8) 
4430 052020 010146 MOV ; NIB.PTR,* 
14431 052022 042716 177770 BIC RtS77I0. (SP) 
14432 052026 012746 000001 MOV #1,-(SP) 
14433 052032 005046 CLR -(§P) 
14434 052034 004767 131042 JSR PC ,BL$GT2 
14435 052040 062706 000010 ADD #10.SP 
14436 052044 005700 TST RO 
14437 052046 001027 BNE 208 
14438 052050 005205 INC RS : NIB. TSTED 7055 
14439 052052 010146 MOV R1,-(SP) : NIB.PTR,* 7056 
14440 052054 016646 000004 MOV 4 (SP) ,<(SP) : BG.PAT,* 
14441 052060 012746 000012 MOV #12,-(SP) 
14442 052064 060616 ADD SP, (SP) : RESULT,* 
14443 052066 004767 141262 JSR PC, xOR. LNG. WRD 
14444 052072 016602 000012 MOV 12¢S : RESULT,* 7058 
14445 052076 042702 177760 BIC 17766 a2 
14446 052102 001002 BNE 18$ 
14447 052104 005204 INC R4 : ALL.BAD 7060 
14448 052106 000405 BR 19% : 7058 
14449 052110 020227 000017 18$: CMP R2,#17 : 7063 
14450 052114 001402 BEQ 19$ 
14451 052116 005266 000006 INC 6(SP) > SUM.BAD 
14452 052122 062706 000006 19$: ADD #6,SP : 7054 
14453 052126 005201 20$: INC RI > NIB.PTR 7050 
14454 052130 020127 000010 CMP R1,#10 > NIB.PTR,* 
14455 052134 003722 BLE 17$ 
14456 052136 005203 INC R3 : WD.CNT 7043 
14457 052140 020327 000160 CMP R3,#160 : WD.CNT,* 
458 052144 003662 BLE 12$ 
14459 052146 104467 TRAP 67 : 7068 
4460 052150 0060 ROR RO 
14461 052152 103615 BLO 7$ . 
14462 052154 020504 CMP R5,R4 : NIB. TSTED, ALE. BAD 7072 
14463 052156 001037 BNE 21$ 
14464 052160 104455 TRAP 5 : 7075 
14465 052162 000124 .WORD 124 ,; 
14466 052164 007500 “WORD SYNC 
14467 052166 “WORD 0 
14468 052170 012746 006040 MOV #WRD.19,-(SP) : 7076 
14469 052174 012746 007020 MOV #FNC.5,-(SP) 
14470 052200 012 6076 MOV #WRD.23,-(SP) 
14471 052204 012746 005760 MOV #WRD.12,-(SP) 
14472 052210 012746 005726 MOV #WRD.9,-(SP) 
14473 052214 012746 006630 MOV #PHR.4.-(SP) 
14474 052220 012746 006062 MOV #WRD.22,-(SP) 


ee SE 4 ‘a e 
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'CZMLAAO ML-11 LOGIC 1 

HARDWARD TEST SECTION SEQ 0299 
14476 3ML4 22-0ct-1980 10:47:44 TOPS 
wt H 22-0ct-1980 10:45:32 PA:< 
14479 052224 012746 005452 MOV #SEV.FMT,-(SP) 
14480 052230 012746 000010 MOV #10,-(SP) 
14481 052234 010600 MOV SP,RO ; SP,* 
14482 052236 104414 TRAP 14 
14483 052240 016700 137722 MOV ML.LUN,RO ; 7077 
14484 052244 104451 TRAP 51 
14485 052246 104444 TRAP 44 
4486 052250 062706 000022 ADD #22,SP 3 7074 
14487 052254 000432 BR 223 ; 7072 
14488 052256 005716 218: TST (SP) ; SUM.BAD 7082 
14489 052260 003430 8 2$ 
14490 052262 104455 TRAP 5 $ 7085 
14491 052264 000125 WORD 12 
14492 052266 007622 WORD INTER 
14493 052270 000000 -WORD 0 
14494 052272 012746 006040 MOV #WRD.19,-(SP) : 7086 
14495 052276 012746 007020 MOV #FNC.5,-(SP) 
14496 052302 012746 006076 MOV #WRD.2$,-(SP) 
14497 052306 012746 005760 MOV #WRD.12,-(SP) 
14498 052312 012746 005726 MOV #WRO.9,-(SP) 
14499 052316 012746 006630 MOV #PHR.4,-(SP) 
14500 052322 012746 005432 MOV #SIX.FMT,-(SP) 
14501 052326 012746 000007 MOV #7,-(SP) 
14502 052332 010600 MOV SP,RO 3; SP,* 
14503 052334 104414 TRAP 14 
14504 052336 062706 000020 ADD #20,SP 5 7084 
14505 052342 062706 000010 228: ADD #10,SP 3 6961 
Lt ss 052346 000207 RTS PC 
14508 ; Routine Size: 255 words 
ats 44 ; Maximum stack depth per invocation: 19 words 
14515 
14519 
14523 052350 T30:: 
14524 052350 004767 176776 1$: JSR PC,$130 3 7087 
14525 052354 104466 TRAP 66 
14526 052356 006000 ROR RO 
14527 052360 103773 BLO 1$ 
>t s+ | 052362 000207 RTS PC 
14530 7ML4 22-0ct-1980 10:47:44 TOPS 
14531 3 22-0ct-1980 10:45:32 PA:< 


co.cc CU r+ --- - > -- - -~— - -_ —— — —_—-— —_—_—_—-_— 
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|MARDWARD TEST SECTION SEQ 0300 
| 
| 14537 =MLG 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
| A288 3 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (73) 
14540 ; 7091 =! 
14541 ; 7092 +! 
| 146542 ; 7093 BGNTST; 
16543 ; 7094 
14546 ; 7095! 44 
14545 ; 7096 ! TEST NUMBER: TST 31 
14546 ; 7097 | 
14547 ; 7098 | TEST NAME: SYNC DATA BUS CONTINUITY TEST (WRITE PATH) 
14548 ; 7099 i 
14549 ; 7100 | TEST DESCRIPTION: 
14550 ; 7101! 
14551 ; 7102 =! TEST THE CONTINUITY OF THE 
14552 ; 7103} SYNCHRONOUS MODULE WRITE PATH 
14553 ; 7104! DATA BUS BY: 
14554 ; 7105! 
14555 ; 7106! 1. VIA DAT_DM MODE WRITE A 
14556 ;: 7107! BACKGROUND PATTERN OF ONES 
14557 ; 7108 | INTO THE GOOD BLOCK. 
14558 ; 7109 | 
14559 ; 7110! 2. VIA MBUS WRITE FUNCTION 
14560 ; 7111! WRITE A ZEROES PATTERN INTO 
14561 ; 7112 THE GOOD BLOCK. 
14562 ; 7113! 
14563 ; 7114 3. VIA DAT_DM MODE READ GOOD 
14564 ; 7115! NIBBLES IN THE GOOD BLOCK FOR 
14565 ; 7116 ZEROES. 
14566 ; 7117! 
14567 ; 7118! 4. REPEAT WITH COMPLIMENT 
14568 ; 7119 «|! DATA AND BACKGROUND PATTERNS. 
14569 ; 7120 ! 
14570 ; 7121 | IMPLICIT INPUTS: 
14571 ; 7122 |! 
14572 ; 7123 PD_TEMP 
14573 ; 7124 |! 
14574 ; 7125! A BIT VECTOR OF 16 BITS WHERE 
14575 ; 7126 |! THE READ PROM DATA IS STORED 
14576 ; rier 4 AND ACCESSED FROM. 
14577 ; 7128 | 
14578 ; 7129! GLOBAL OWN LOCATION TO THIS TST. 
14579 ; 7130 | 
14580 ; 7131! 10_BUF 
14581 ; 7132! 
14582 ; 7133! A VECTOR OF 256 WORDS WHERE 
14583 ; 7134! DATA FOR MBUS READS AND WRITE 
14584 ; 7135! FUNCTION ARE FOUND. 
14585 ; 7136! 
14586 ; 7137! A GLOBAL aan LOCATION TO 
14587 ; 7138 i THIS TEST 
14588 ; 7139 
14589 ; 7140 |! 
14590 ; 7141 i- 
14591 ; 7142 


: 


. — 


CZMLAAO ML-11 
'HARDWARD TEST 
7ML4 
| 14594 ; 


Nm 
Nm 
Be Be Be Se Be Se Se Se Be Se Se Be Ge Se Be Fe Ge Se Ge Fe Ge Be Se Se Se Fe Ge Ge Ge Se Ge Fe Ge Ge FH Fe Ge Ge Fe Se Se Se Se Se Ge Se Se Se Se Se Fe Se 
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local 
DODU_FLG, 
BG PAT, 
RESULT, 
TST_PAT; 


DODU_FLG = ZERO; 
BG_PA; = ZEROES; 
TST_PAT = ONES; 


weal > from 0 to 1 do 


DAT_DM_XFER (); 
MLCS1 = write; 


_ = CNT from 0 to 127 do 

egin 
DELAY (ONE_US); 
DAT_CLK = ONE; 
end; 

CLR_MBUS; 

BAI = ON NE; 

10_BUF = .TST_PAT; 

GD-BLK _XFER (J; 

MLES1 = write; 

do 


0 
until .DRY IS_SET; 


DELAY (ONE *U8); 

incr WD_CNT from 0 to 112 do 
begin 
PD — -MLPD; 


DA = ONE; 
peLAY’ CONE ous: 
RD_LNG_WRD; 


incr NIB_PTR from 0 to 8 do 


if .PD_TEMP C.NIB_PTR] IS_NOT_SET 
then 


C 8 
PAGE 298 


SEQ 0301 


TOPS=20 Bliss-16 V2(206) 


22-0ct-1980 HS 
80 1 PA:<NEALE>BL2ML4.BLI1.2 (73) 


22-0ct-19 


aN 
wr 
NS 


'DROP UNIT FLAG 
‘BACKGROUND PATTERN 
‘RESULTS FROM XOR 
'TEST PATTERN 


'BG PAT EQL O'S 
'TST PAT EQL 1°S 
'REPEAT LOOP TWICE 


'LOAD DATA DIAG REG WITH BG PAT 

'SET UP A DATA DIAG XFERR AT THE GOOD BLK 
'DO A WRITE FUNCTION 

'LOAD BLOCK WITH BG PAT 


‘SET ON FIRST 10 BUF ADRS 

‘FIRST IO_BUF WORD EQL'S TST_PAT 
'SET UP A GOOD BLOCK XFERR 

'DO A WRITE FUNCTION 


'DELAY UNTIL XFER TO COMPLETE 


'SET UP A DATA DIAG XFERR AT SAME BLOCK 
!DO A READ FUNCTION 
'READ 113 LONG WORDS 


‘GET THE PROM DATA 
'CLOCK OUT THE DATA WORD 


'READ THE DATA WORD 
!LOOK AT 9 NIBBLES 
'FIND GOOD NIBBLES 


r — - 


dD 8 
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‘CZMLAAO ML=11 LOGIC 1 
\HARDWARD TEST SECTION SEQ 0302 
| 14649 3ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
eet ; 22-0ct-1980 10:45:32 PA: <NEALE>BL2ML4.BL1.2 (73) 
14652 ; 7195 begin 
ear ; ee XOR_LNG_WRD (.NIB_PTR, .TST_PAT, RESULT); 'XOR NIBBLE DATA WITH TST_PAT 
14655 ; 7198 if .RESULT<O, 4> neq ZERO 'SEE IF EQUAL 
14656 ; 7199 then 
14657 ; 7200 begin ‘ERROR IF NEQ 
14658 ; 7201 ERRDF (86, SYNC, 0); 
14659 ; 7202 PRINTB (FIV_FMT, WRD_24, WRD_25, WRD_10, A 12, FNC_5); 
14660 ; 7203 PRINTB (FMT_5, <TST_ Bat. _RESULT, .NTB_P 
14661 ; 7204 DODU_FLG = ONE; 
14662 ; 7205 end 
14663 ; 7206 
14664 ; 7207 end 
14665 ; 7208 
14666 ; 7209 end; 
14667 ; 7210 
14668 ; 7211 ENDSUB; 
14669 ; 7212 
14670 ; 7213 if .DODU_FLG IS_SET ‘DROP THIS UNIT IF DODU IS_SET 
14671 ; 7214 'AND EXITS TEST 
14672 ; 7215 then 
14673 ;: 7216 aoe 
14674 ; 7217 DODU (.ML_LUN); 
14675 ; 7218 DOCLN; 
14676 ;: 7219 end; 
14677 ; 7220 
14678 ; 7221 BG_PAT = not .BG PAT; ‘COMPLIMENT BG_PAT 
14679 ; 7222 TST_PAT = not .15T_PAT; ‘COMPLIMENT TST_PAT AND REPEAT 
14680 ; 7223 end; 
146081 ; 7224 
‘ache ; 7225 ENDTST; 
14690 052364 004167 131470 $131: JSR R1,$SAVE5 : 7089 
14691 052370 024646 CMP -(SP),-(SP) 
14692 052372 005046 CLR -(SP) ; DODU.FLG 7149 
14693 052374 005001 CLR R1 : BG.PAT 7150 
14694 052376 012702 177777 MOV #-1,R2 > *,TST.PAT 7151 
14695 052402 005046 CLR -(SP) : TWICE 7153 
14696 052404 104402 1$: TRAP 2 : 7154 
14697 052406 152777 000040 137324 BISB #40,aML.REG+40 3 7155 
14698 052414 016705 137550 MOV ML. but R5 
14699 052420 042705 177770 BIC #177770,R5 
14700 052424 142777 000007 137306 BICB #7, aML.REG+40 
1 150577 137302 B1SB R5,aML .REG+40 


14701 052432 , 
14702 052436 010177 137426 MOV R1,aML .REG+170 ; BG.PAT,* 7157 


— 


CZMLAAO ML-11 LOG 


8 
IC TEST MACRO M1113. 23-OCT-80 09:11 PAGE $00 
HARDWARD TEST SECTI 


ON SEQ 0303 
14704 ML4 22-Oct-1980 10:47:44 TOPS 
det ; 22-0ct-1980 10:45:32 PA:< 

14707 052442 010177 137432 MOV R1,aML .REG*+200 ; BG.PAT,* 7158 
14708 052446 010177 137406 MOV R1,QML.REG*+160 ; BG.PAT,* 7159 
14709 052452 004767 140150 JSR PC _DAT.DM.XFER : 7160 
14710 052456 012777 000061 137214 MOV #61, aML.REG : 7161 
14711 052464 005003 CLR R3 + WD.CNT 7163 
14712 052466 012704 000001 2$: MOV #1, RG : #,$$TMP2 7165 
14713 052472 001411 3$: BEQ 6$ 

14714 052474 016705 127416 MOV LSDLY,RS ; *,SSTMP1 

14715 052500 001404 BEQ 5$ 

14716 052502 005066 000006 4$: CLR 6 (SP) : $SSTMP 

14717 052506 005305 DEC RS : $$TMP1 

14718 052510 001374 BNE 4$ 

14719 052512 005304 5$: DEC RG : $STMP2 

14720 052514 000766 BR 3$ 

14721 052516 152777 000020 137274 6%: BISB  #20,aML.REG+120 ; 7166 
14722 052524 005203 INC R3 + WD.CNT 7163 
14723 052526 020327 000177 CMP R3,#177 : WO.CNT,* 

14724 052532 003755 BLE $ 

14725 052534 152777 000040 137176 BISB #40,aML.REG+40 : 7167 
14726 052542 016705 137422 MOV ML .OUT,RS5 

14727 052546 042705 177770 BIC #177770,R5 

14728 052552 142777 000007 137160 BICB = #7, AML. REG+40 

14729 052560 150577 137154 BISB R5.aML.REG+40 

14730 052564 152777 000010 137146 BISB #10,aML.REG+40 : 7170 
14731 052572 010267 135544 MOV R2,10.BUF : TST.PAT,* 7171 
14732 052576 004767 137740 JSR PC,GD.BLK.XFER 5 7172 
14733 052602 012777 000061 137070 MOV #61,aML.REG : 7178 
14734 052610 105777 137134 7$: TSTB = @ML.REG*+50 : 7177 
14735 052614 100375 BPL 7$ 

14736 052616 152777 000040 137114 BISB #40,aML.REG+40 

14737 052624 016705 137340 MOV L 

14738 052630 042705 177770 BIC #177776, R5 

14739 052634 142777 000007 137076 BICB = #7, @ML..REG+40 

14740 052642 150577 137072 BISB  R5,aML.REG+40 

14741 052646 004767 137754 JSR PC DAT.DM.XFER : 7180 
14742 052652 012777 000071 137020 MOV #71, aML.REG : 7181 
14743 052660 012704 000001 MOV #1,R4 : *#, $$TMP2 7182 
14744 052664 001411 8$: BEQ jj: Bie 

14745 052666 016705 127224 MOV LSDLY,RS : *,SSTMP1 

14746 052672 001404 BEQ 10$ 

14747 052674 005066 000006 9$: CLR 6(SP) : $$TMP 

14748 052700 005305 DEC R5 : $$TMP1 

14749 052702 001374 BNE 9$ 

14750 052704 005304 10$ DEC R4 : $STMP2 

14751 052706 000766 BR ae 

14752 052710 005003 11$: CLR R3 ; WO.CNT 7184 
14753 052712 017767 137212 136742 i2$: MOV @ML .REG+230,PD.TEMP : 7186 
14754 052720 152777 000020 137072 BISB #20,aML.REG+120 : 7187 
4755 052726 012704 000001 MOV £1,R4 : « $STMP2 7188 
4756 052732 001411 13$:  BEQ 16 

14757 052734 016705 127156 MOV LSDLY,R5 > +, $STMP1 

14758 052740 001404 BEQ 15$ 
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HARDWARD TEST SECTION SEQ 0304 
14760 7ML4 22-0¢t-1980 10:47:44 TOPS 
ere ; 22-0ct-1980 10:45:32 PA:< 
14763 052742 005066 000006 148: CLR 6(SP) : $$TMP 
14764 052746 005305 DEC RS + $$TMP1 
14765 052750 001374 BNE 14$ 
14766 052752 005304 15$: DEC RG : $$TMP2 
14767 052754 000766 BR 13$ 
14768 052756 017767 137106 134730 16$: MOV aML.REG*+170,01. TEMP 
14769 052764 017767 137110 134724 MOV @ML .REG+200,02. TEMP . 

14770 052772 017767 137062 134720 MOV @ML .REG*+160.€2. TEMP 

14771 053000 005004 CLR RG ; NIB.PTR 7191 

14772 053002 010405 17$: MOV R4,RS ; NIB.PTR,* 7193 

14773 053004 006205 ASR RS 

14774 053006 006205 ASR RS 

14775 053010 006205 ASR R5 

14776 053012 062705 011662 ADD #PD.TEMP,RS 

14777 053016 010546 MOV R5,-(SP) 

14778 053020 010446 MOV R4,-(SP) ; NIB.PTR,* 

14779 053022 042716 177770 BIC #177770, (SP) 

14780 053026 012746 000001 MOV #1,-(SP) 

14781 053032 005046 CLR -($P) 

14782 053034 004767 130042 JSR PC ,BL$GT2 

14783 053040 062706 000010 ADD #10,SP 

14784 053044 005700 TST RO 

14785 053046 001060 BNE 19$ 

14786 053050 010446 MOV R4,-(SP) ; NIB.PTR,* 7196 

14787 053052 010246 MOV R2.-(SP) : TST.PAT.* 

14788 053054 012746 000012 MOV #12,-(SP) 

14789 053060 060616 ADD SP, (SP) ; RESULT,* 

14790 053062 004767 140266 JSR PC.XOR.LNG.WRD 

14791 053066 032766 000017 000012 BIT #17,12(SP) : *,RESULT 7198 

14792 053074 001443  BEQ 18$ 

14793 053076 104455 TRAP 55 : 7201 
4 053100 000126 WORD 126 

14795 053102 007500 WORD SYNC 

14796 053104 000000 “WORD 0 

14797 053106 012746 007020 MOV #FNC.5,-(SP) : 7202 

14798 053112 012746 005760 MOV #WRD.12,-(SP) 

14799 053116 012746 005740 MOV #WRD.10,-(SP) 

14800 053122 012746 006112 MOV #WRD.25,-(SP) 

14801 053126 012746 006104 MOV #WRD.24,-(SP) 

14802 053132 012746 005414 MOV #FIV.FMT,-(SP) 

14803 053136 012746 090006 MOV #6,-(SP) 

14804 053142 010600 MOV SP,RO : SP, 

14805 053144 104414 TRAP 14 

14806 053146 010416 MOV R4, (SP) > NIB.PTR,* 7203 

14807 053150 016646 000030 MOV 30(SP) ,-(SP) > RESULT,* 

14808 053154 010246 MOV R2,-(SP) : TST.PAT,* 

14809 053156 012746 004366 MOV #FMT.5,-(SP) 

14810 053162 012746 000004 MOV #4,-(SP) 

14811 053166 010600 MOV SP,RO : SP, 

146812 053170 104414 TRAP ‘14 

14813 053172 012766 000001 000036 MOV #1, 36(SP) : *,DODU.FLG 7204 

14814 053200 062706 000026 ADD #26,SP ; 7200 
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HARDWARD TEST SECTION SEQ 0305 
164816 ZMLG 22-Oct-1980 10:47:44 TOPS 
He 3H ; 22-0ct-1980 10:45:32 PA:< 
14819 053206 062706 000006 18$: ADD #6 ,SP : 7195 
14820 053210 005204 19$: INC R4 + NIB.PTR 7191 
14821 053212 020427 000010 CMP R4,#10 > NIB.PTR,* 
14822 053216 003671 BLE 17$ 
1482 053220 005203 INC R3 : WD.CNT 7184 


020327 000160 CMP rare ; WO.CNT,* 


14829 053236 000167 177142 20$: JMP 1$ 
14830 053242 026627 000002 000001 21%: CMP gigr) em ; DODU.FLG,* 7213 


14832 053252 016700 136710 MOV oo § 7217 


53 
14835 053262 005101 22$: COM R1 ; BG.PAT 7221 
TST.PAT 7222 
TWICE 7153 
14838 053270 021627 000001 CMP rt 4a TWICE,* 


14840 053276 062706 000010 ADD #10,SP : 7089 
14841 053302 000207 RTS PC 


14843 ; Routine Size: 232 words. ; 
14844 ; Maximum stack depth per invocation: 24 words 
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Hp 053304 004767 177054 $: JSR + Ct : 7223 


000207 RTS PC 


14865 ; Routine Size: 6 words ; 
14866 ; Maximum stack depth per invocation: 0 words 


14876 : 7226 ='<BLF/PAGE> 
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/HARDWARD TEST SECTION SEG 0306 


14878 5ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
| pr $44 : 22-Oct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (74) 


7227 ! 
7228 BGNTST; 


7230 !++ 
TEST NUMBER: TST 32 


TEST NAME: SYNC DATA BUS CONIINUITY /READ PATH 
TEST DESCRIPTION: 
TEST THE CONITNUITY OF THE SYNCHRONOUS MODULE READ 
DATA BUS BY: 
1. VIA MBUS WRITE FUNCTION WRITE ONES INTO THE GOOD BLOCK. 
2. VIA MBUS READ FUNCTION READ THE GOOD BLOCK FOR ONES. 
3. REPEAT WITH COMPLIMENT DATA PATTERN. 
IMPLICIT INPUTS: 
0_BUF 


4 VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 


CZMLAAO ML-11 LOG ; 


i 
i 
i 
i 
| 
7240 ! 
: 
i 
: 
i 


local 
7252 DODU \s. 'DROP UNIT FLAG 
7253 TST_PAT 'TEST PATTERN 
7254 BG_ Bats’ ‘BACKGROUND PATTERN 


7256 DODU FLG = ZERO; 
7257 TST_BAT = ONES; 

7258 8G_ BAT. = ZEROES; 

7260 incr TWICE from 0 to 1 do !REPEAT LOOP TWICE 

7263 BAI = ONE; 'SET ON FIRST IO_BUF ADRS 

7264 10_BUF = .TST_PAT; ‘FIRST IO_BUF ADRS +: 4 a PAT 

7265 GD-BLK_XFER (J; 'SET UP A GOOD BLOCK XFERR 

7266 mLS1 = write; 'DO A WRITE FUNCTION (WRITES THE TST_PAT) 
7268 do 0 'DELAY UNTIL XFER TO COMPLETE 

7270 until .DRY IS_SET; 


7272 BGNSUB ; 
7273 CLR_MBUS; 


7275 wal” 10_CNT from 0 to 255 do ‘LOAD I10_BUF WITH BG PAT 
7276 O_BuF C.10_CNT] = .BG_PAT; 


7278 GD_BLK_XFER (); 'SET UP A GOOD BLOCK XFERR 
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HARDWARD TEST SECTION SEQ 0307 
14934 :ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
pet ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (74) 
| 14937 ; 7279 MLCS1 = read; 'DO A READ FUNCTION (READ THE TST PAT) 
| 14938 : 7580 
14939 ; 7281 do ‘DELAY UNTIL XFER TO COMPLETE 
14940 ; 7282 0 
14941 ; 7283 until .DRY IS_SET; 
14942 ; 7284 
bob ; 7285 incr IO_CNT from 0 to 255 do 'READ THE 10_BUF FOR TEST PATTERN 
14945 ; 7287 if .10_BUF C.I10_CNT] neq .TST_PAT 'SEE IF IO_BUF WORD EQLS TST PAT 
14946 ; 7288 then 
14947 : 7289 begin ‘ERROR AND SET DODU_FLG IF NEQ 
14948 ; 7290 ERRDF (87, SYNC, 0); 
14949 ; 7291 PRINTB (SEV_FMT, WRD_24, WRD_25, WRD_10, WRD_12, WRD 23, FNC_6, AD 19); 
14950 ; 7292 PRINTB (FMT mF TST PAT, -1O7BUF C.10_CNTJ, T.TST_PAT xor .10_ BuF CTI0_CNTJ)); 
14951 ; 7293 DODU_FLG = 
14982 ; 7294 end; 
14953 ; 7295 
14954 : 7296 ENDSUB; 
14955 ; 7297 
14956 ; 7298 if .DODU_FLG IS_SET ‘DROP THIS UNIT IF DODU_FLG IS SET 
14957 ; 7299 th en 
14958 : 7300 +4 eg 
14959 ;: 7301 DODU (.ML_LUN); 
14960 ; 7302 DOCLN; 
4961 ; 7303 end; 
14962 ; 7304 
14963 ; 7305 TST PAT = not .TST_PAT; ‘COMPLIMENT TST_PAT 
14964 ; 7306 BG_PAT = not .BG_PAT; ‘COMPLIMENT BG_PAT AND REPEAT 
14965 ; 7307 end: 
14966 ; 7308 
oh : 7309 ENDTST: 
14975 053320 004167 130534 $132: JSR R1,$SAVE5 F 7225 
14976 053324 005046 CLR -(SP) ; DODU.FLG 7256 
14977 053326 012701 177777 MOV #-1,R1 : *, TST.PAT 7257 
14978 053332 005004 CLR R4 : BG.PAT 7258 
14979 053334 5005 LR R5 ; TWICE 7260 
14980 053336 152777 000040 136374 1$: BISB #40, aML.REG+40 ; 7261 
14981 053344 016703 136620 MOV ML .DUT,R3 
14982 053350 042703 17777 BIC #177776,R3 
14983 053354 142777 000007 136356 BICB #7,,aML.REG+40 
14984 053362 150377 13635 BISB R3,aML.REG+40 
14985 053366 152777 000010 136344 BISB. ss #10, aML. REG*40 : 7263 
14986 053374 010167 13474 MOV R1,10.BUF > TST.PAT,* 7264 
14987 053400 004767 137136 JSR PC.GD.BLK.XFER : 7265 
| 
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136266 


136310 


136272 


136172 


4$: 


5$: 


A$: 


#61,9ML.REG 
anette 


2 
#40, QML .REG*40 
M R 


R3.aML .REG+40 
bee 

St 

R4 , 10.BUF (RS) 
R2,#377 

4$ 


PC,GD.BLK.XFER 
#71,QML.REG 
aML .REG+50 


(R3),R1 


(R3), (SP) 
R1,-(SP) 
2(SP), (SP) 
R1,2(SP) 
(SP)+, (SP) 
(R3),-(SP) 


*, TST.PAT 


SP,* 


> TST.PAT,* 


TST.PAT,* 


TST.PAT,* 


SP,* 


22-0ct-198 
22-0ct-198 


0 
0 


1 
1 


SEQ 0308 


+47: 
245: 


TOPS 
PA:< 


7266 
7270 


7272 


7291 


7292 
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'HARDWARD TEST SECTION SEQ 0309 
| 
15045 sML4 22-0c¢t-1980 10:47:44 TOPS 
ae ; 22-0¢t-1980 10:45:32 PA:< 
15048 053650 012766 000001 090032 MOV #1 52(SP) ; *,DODU.FLG 7293 
15049 053656 062706 000032 ADD #32, : 7289 
15050 053662 005202 7$: INC ; 10.CNT 7285 
15051 053664 020227 000377 CMP RS 4377 ; IO.CNT,* 
15052 053670 003712 B 6$ 
15053 053672 104467 TRAP 67 : 7294 
15054 053674 006000 ROR RO 
15055 053676 103650 BLO 3$ 
15056 053700 021627 000001 CMP (SP) ,#1 ; DODU.FLG,* 7298 
15057 053704 001004 BNE 8$ 
15058 053706 016700 136254 MOV ML.LUN,RO 3 7301 
15059 053712 104451 TRAP 51 
15060 053714 104444 TRAP 44 
15061 053716 005101 8$: COM R1 : TST.PAT 7305 
15062 053720 005104 COM R4 : BG.PAT 7306 
1 0537 005205 INC R5 : TWICE 7260 
15064 053724 020527 000001 CMP R5,#1 : TWICE,* 
15 053730 003602 BLE 1$ 
15066 053732 005726 TST (SP)+ : 7225 
iioee 053734 000207 RTS PC 
15069 : Routine Size: 135 words 
15070 ; Maximum stack depth per invocation: 20 words 
15075 
1208 
15080 
15084 053736 T32:: 
15085 053736 004767 177356 1$: JSR PC,$132 ; 7307 
15086 053742 104466 TRAP 66 
15087 053744 006000 ROR RO 
15088 053746 103773 BLO 1$ 
15089 053750 000207 RTS PC 
15090 
15091 ; Routine Size: 6 words 
Hf s'44 4 ; Maximum stack depth per invocation: 0 words 


15098 ; 7310 !<BLF/PAGE> 


CZMLAAO ML-11 LOGI 
|MARDWARD TEST SECT 


3ML4 


C TEST 
10N 


— 
uw 
_ 

2S 


' 
BGNTST: 


‘ee 


TO > Pm a 


— 
el ee ee ee a ed ad od ot 2 2 


i me ee ee ee ee ee ee ee ke a kk kk a td oh ot 
eerealealealealtal ah al ah alah sh Ab sh Ab sb ah ah ah sh ab Ah ae Ab Ab Ab ab ak Al ab ak ah ah al ab ahah ab eal sh sb ahead ak kk ak kak dS 


Be Be Se Be Be Se Be Se Se Se Se Se Se Be Be Ge Se Gs Ge Be Se Ge Se Se Se Se Ge Ge Be Ge Se Ge Be Se Ge Ge Se Ge Ge Ge Ge Ge Se Se Se Ge Ge Se Ge Ge Ge Se 
~ 
wi 
Ww 
~N 


~ 
Ww 
, 
Oo 


8 
MACRO M1113 23-OCT-80 09:11 PAGE 07 


TEST NAME: 


1 

2 

z 

: 

$ | TEST NUMBER: TST 33 
a 

9 

: TEST DESCRIPTION: 


22-0ct-19 
22-Oct-19 


RAM BUS ADRS COUNTER TEST /WRITE PATH 


TEST ABILITY OF THE RAM_BUS ADDRESS 
COUNTERS TO LOAD/UNLOAD THE SKIP 
RAM DURING WRITE FUNCTIONS BY: 


ve 


4. 


LOADING A REPEATING COUNT OF 0 
TO 63 INTO THE NIBBLES OF THE 
FIRST 64 WORDS OF THE 10_BUF. 


VIA MBUS WRITE FUNCTION WRITE 
THE CONTENTS OF THE IO_BUF 
INTO THE GOOD BLOCK. 


VIA DAT_DM READ GOOD NIBBLES IN 
THE GOOD BLOCK FOR THE UNBROKEN 
COUNT OF 0 TO 63. 


ONCE A BAD NIBBLE IS ENCOUNTERED 
a NIBBLE FROM FURTHER 


REPEAT READING NIBBLES UNTIL 
113 WORDS ARE READ OR ALL 16 NIBBLES 
ARE MASKED. 


IMPLICIT INPUTS: 


PD_TEMP 


A BIT VECTOR OF 16 BITS WHERE 
THE READ a gl DATA IS STORED 
AND ACCESSED FROM. 

2. OWN LOCATION TO THIS 


10_BUF 

A VECTOR OF 256 WORDS WHERE 
DATA FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 


GLOBAL OWN LOCATION TO THIS TEST. 


80 10:47:44 
80 10:45:32 


TOPS=20 Bliss-16 V2(206) 
PA: <NEALE>BL2ML4.BLI.2 (75) 


SEQ 0310 
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| LOGIC 1 
\HARDWARD TEST SECTION SEQ 0311 
15156 ;ML4 22-9¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
uF 34 ; 22-0ct-1980 10:45:32 PA: <NEALE>BL2ML4.BL1.2 (75) 
15159 ; 7365! 
15160 ; 7364 !-- 
15161 ; 7365 
15162 ; 7366 Local 
15163 ; 7367 DODU_FLG, ‘DROP UNIT FLAG 
15164 ; 7368 WRD_CNT, ‘WORD COUNT 
15165 ; 7369 NIB_IGNORE : bitvector [16], 'NIBBLE IGNORE FLAGS 
15166 ; 7370 “FLG, 'ERROR FLAG 
15167 ; 7371 BAD_NIB_CNT, 'BAD NIBBLE COUNT 
15168 ; 7372 PASS CNT, 'PASS COUNT 
15169 ; 7373 NIB_PAT; 'NIBBLE PATTERN 
15170 ; 7374 
15171 ; 7375 DODU_FLG = ZERO; 
15172 ; 7376 WRO_CNT = ZERO; 
15173 ; 7377 
+4 14] ; e378 incr CNT from 0 to 63 do ‘LOAD 44 WORDS WITH REPEATING COUNTS OF 0-63 
13176 ; 7380 ince PAT CHT from -1 to 11 by 4 do ‘LOAD NIBBLES IN WORD WITH REPEATING COUNTS OF 0-63 
° egin 
15178 ; 7382 (10_BUF C.WRD_CNT])<O, 4> = .PAT_CNT + 1; 'LOAD FIRST NIBBLE IN WORD 
15179 ; 7383 (10-BUF C.WRD_CNTJ)<4, 4> = .PAT_CNT + 2; 'LOAD SECOND NIBBLE IN WORD 
15180 ; 7384 (10"BUF [.WRD_CNTJ)<8, 4> = .PAT_CNT + 3; 'LOAD THIRD NIBBLE IN WORD 
15181 ; 7385 (1O7BUF C.WRD-CNTJ)<12, 4> = .PAT_CNT + 4; iLOAD FORTH NIBBLE IN WORD 
15182 ; 7386 WRD-CNT = .WRB_CNT + 1; ‘INCREMENT TO NEXT WORD 
15183 ; 7387 end; 
15184 ; 7388 
15185 ; 7389 BGNSUB; 
15186 ; 7390 -CLR_MBUS; 
15187 ; 7391 GD_BLK_XFER (); 'SET UP A GOOD BLOCK XFERR 
15188 ; 7392 .MLCS1 = write; 'DO A WRITE FUNCTION 
15189 ; 7393 
15190 ; 7394 do ‘DELAY UNTIL XFER TO COMPLETE 
15191 ; 7395 0 
15192 ; 7396 until .DRY IS_SET; 
15193 ; 7397 
15194 ; 7398 CLR_MBUS; 
15195 ; 7399 NIB IGNORE = ZEROES; 
15196 ; 7400 PASS_CNT = ZEROES; 
15197 ; 7401 NIB_PAT = 2E : 
15198 ; 7402 BAD_NIB_CNT = ZEROES; 
15199 : 7403 DAT_DM_RFER (); 'SET UP A DATA DIAG MODE AT THE GOOD BLOCK 
15200 ; 7404 MLC3S1 = read; 'DO A READ FUNCTION 
15201 ; 7405 DELAY (ONE_US); 
15202 ; 7406 
15203 ; 7407 do 'LOOP UNTIL THE BLOCK IS READ OR 9 BAD NIBBLES FOUND 
15204 ; 7408 begin 
15205 ; 7409 PD TEMP = .MLPD; 'GET THE PROM DATA 
15206 ; 7410 DAT_CLK = ONE; ‘CLOCK OUT THE DATA WORD 
15207 : 7411 DELAY (ONE_US); 
15208 ; 7412 RD_LNG_WRD; ‘READ THE DATA DIAG REGISTERS 
15209 ; 7413 
15210 ; 7414 incr NIB_PTR from 0 to 8 do 'LOOK AT 9 NIBBLES 


he ee 
‘CZMLAAO ML=11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 309 
HARDWARD TEST SECTION SEO 0312 


7ML4 22-0ct-198 244 TOPS=20 Bliss-16 Vv2(206) 
3 22-0c t-198 :32 PA:<NEALE>BL2ML4.8L1.2 (75) 


7415 begin 

7417 if .PD_TENP C.NIB_PTR] 1S_NOT_SET 'FIND GOOD NIBBLES 

7419 begin 

7421 if .NIB_IGNORE C.NIB_PTR] IS_NOT_SET 'SEE IF THIS NIBBLE FOUND BAD BEFORE 


——— ———_—- -- a ” 


= 
uw 
Nm 
— 
Nm 


0 10:4 
0 10:4 


begin 
7424 TS?_LNG_WRD (.NIB_PTR, .NIB_PAT, ERR_FLG); 'TEST THE NIBBLE IF NEVER FOUND BAD 
7426 “ -ERR_FLG IS_SET 'SEE IF TEST FOUND AN ERROR 

then 

poate 'ERROR AND SET DODU_FLG IS SET 

7429 ERRDF (88, ARR_DAT, 0); 
7430 PRINTB (SIX_FMT, FNC_18, WRD_50, WRD_10, WRD_12, FNC_5, WRD_19); 
7431 DODU_FLG = ONE; 
7432 end 
7434 end 


7436 end 
else 'THIS NIBBLE IS BAD 


begin 
7439 NIB. IGNORE C.NIB_PTR] = ONE; ‘SET THIS NIBBLE NIB_IGNORE FLAG 
wt One tect = .BAD_NIB_CNT + 1; ‘INCREMENT BAD NIB COUNT 

end; 


7443 NIB_PAT = .NIB_PAT + 1; ‘INCREMENT NIB PAT 
7444 end; 


rae PASS_CNT = .PASS_CNT + 1; ' INCREMENT PASS COUNT 

7448 until (.PASS_CNT eql 113) or (.BAD_NIB_CNT eql 9); 'REPEAT UNTIL COMPLETE 
7450 ENDSUB; 

7452 af beeU TUS IS_SET !DROP THIS UNIT IF DODU_FLG SET 
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1 ha 
7455 DODU (.ML_LUN); 
7456 DOCLN; 

7457 end; 


7459 ENDTST; 
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177770 
000007 


135556 


135540 


$133: 


— rere ; 9 
MACRO M1113. 23-OCT-80 09:11 PAGE $10 


R1 < * Soe 
#6,5S 


8) 
R3 

R2 
#-1,R0 
R3,R1 


R1 
T10.8UF RI 
RO,R5S 


R5 
#177760,R5 
UF (R1) 


R 
#170377,R5 
#7400, (R1) 


#7777,R5 
#170000, (R1) 
R5,(R1) 

R3 

#4,R0 
RO,#15 

2$ 

R2 

R2,#77 

is 

#40 ,@ML.REG+40 
ML .DUT ,R2 


R 
#177770, R2 
#7, AML .REG+40 


DODU.FLG 
WRD.CNT 
CNT 

* ,PAT.CNT 
WRD.CNT,* 


PAT.CNT,*® 


PAT.CNT,* 


PAT.CNT,* 


PAT.CNT,* 


WRD.CNT 
* PAT. CNT 
PAT.CNT,* 


CNT 
CNT,* 


SEQ 0313 
7309 


7383 


7384 


7385 


7386 
7380 


7378 


7387 
7389 
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CZMLAAO ML=11 LOGIC TEST MACRO M1113. 23-OCT-80 09:11 PAGE $11 


Ic 1 
'HARDWARD TEST SECTION SEQ 0314 
15323 MLG 22-Oct-1980 10:47:44 TOPS 
13324 ; 22-0ct-1980 10:45:32 PA:< 
15326 054200 150277 135534 BISB R2,aML.REG+40 
15327 054204 004767 136332 JSR PC,GD.BLK.XFER : 7391 
15328 054210 012777 000061 135462 MOV #61, aML.REG : 7392 
15329 054216 105777 135526 4$: TSTB = AML. REG*+50 : 7396 
15330 054222 100375 BPL 4$ 
15331 054224 152777 000040 135506 BISB #40,aML.REG+40 
15332 054232 016702 135732 MOV ML .DUT ,R2 
15333 054236 042702 177770 BIC #177776, R2 
15334 054242 142777 000007 135470 BICB = #7, AML. REG*+40 
15335 054250 150277 135464 BISB R2,aML.REG+40 
15336 054254 005066 000004 CLR 4(§P) ; NIB. IGNORE 7399 
15337 054260 005004 CLR RG + PASS.CNT 7400 
15338 054262 005003 CLR R3 > NIB.PAT 7401 
15339 054264 005005 CLR R5 > BAD.NIB.CNT 7402 
15340 054266 004767 136334 JSR PC,DAT.DM.XFER 3 7403 
15341 054272 012777 000071 135400 MOV #71, aML.REG : 7404 
15342 054300 012701 000001 MOV #1,R1 : «©, $$TMP2 7405 
15343 054304 001411 S$: BEQ 8$ 
15344 054306 016702 125604 MOV LSDLY,R2 : *,SSTMP1 
15345 054312 001404 BEQ 7$ 
15346 054314 005066 000006 6$: CLR 6(SP) : $STMP 
15347 054320 005302 DEC R2 + $$TMP1 
15348 054322 001374 BNE 6$ 
15349 054324 005301 7$: DEC R1 : $$TMP2 
15350 054326 000766 BR 5$ 
15351 054330 017767 135574 135324 8$: MOV aML .REG+230,PD. TEMP : 7409 
15352 054336 152777 000020 135454 BISB  #20,aML.REG+120 : 7410 
15353 054344 012701 000001 MOV #i,R1 > #,$$TMP2 7411 
15354 054350 001411 9$: BEQ 12$ 
15555 054352 016702 125540 MOV LSDLY,R2 : *, SSTMP1 
15356 054356 001404 BEQ 11$ 
15357 054360 005066 000006 10$: CLR 6(SP) : $$TMP 
15358 054364 005302 DEC R2 > $$TMP1 
15359 054 001374 BNE 10% 
15360 054370 005301 11$: DEC RI: : $$TMP2 
15361 054372 000766 BR $ 
15362 054374 017767 135470 133312 12%: MOV @ML.REG+170,D1. TEMP 
15363 054402 017767 135472 133306 MOV QML .REG+200,D2. TEMP 
15364 056410 017767 135444 123302 MOV @ML .REG+160,E2. TEMP 
15365 054416 005001 CLR R1 : NIB.PTR 7414 
15366 054420 010100 138: MOV R1,80 ; NIB.PTR,* 7417 
15367 054422 006200 ASR RO 
15368 054424 006200 ASR RO 
15369 054426 006200 ASR RO 
15370 054430 012702 000004 MOV #4 ,R2 ; 7421 
15371 054434 060602 ADD SP,R2 > NIB. IGNORE ,* 
15372 054436 0600 ADD RO,R2 
15373 054440 010046 MOV RO,-(SP) : 7417 
15374 054442 062716 011662 ADD #PD. TEMP, (SP) 
15375 054446 010146 MOV R1,-(SP) : NIB.PTR,* 
15376 054450 042716 177770 BIC #177770, (SP) 
15377 054454 012746 000001 MOV #1,-(SP) 


CIMLAAO ML-11 LOG 


od 9 
IC TEST MACRO M1113 23-OCT-80 09:11 PAGE 312 
HARDWARD TEST SECTI 


| ON SEQ 0315 
| 
| 15379 3ML4 22-Oct-1980 10:47:44 TOPS 
ts) ; 22-0ct-1980 10:45:32 PA:< 
15382 054460 005046 CLR =(SP) 
19383 054462 004767 126414 JSR PC ,BL$GT2 
| 15384 054466 062706 000010 ADD #i6,SP 
15385 054472 005700 TST RO 
15386 054474 001066 BNE 15$ 
15387 054476 010246 MOV R2,-(SP) : 7421 
15388 054500 010146 MOV R1.=(SP) : NIB.PTR,®* 
15389 054502 042716 177770 BIC #177770, (SP) 
15390 054506 012746 000001 MOV #1,-(SP) 
15391 054512 005046 CLR -($P) 
15392 054514 004767 126362 JSR PC ,BL$GT2 
15393 054520 062706 000010 ADD #10,SP 
15394 054524 005700 TST RO 
15395 054526 001065 BNE 16$ 
15396 054530 010146 MOV R1,-(SP) ; NIB.PTR,* 7424 
15397 054532 010346 MOV R3,-(SP) ; NIB.PAT,* 
15398 054534 012746 000010 MOV #10,-(SP) 
15399 054540 060616 ADD SP, (SP) : ERR.FLG,* 
15400 054542 004767 136112 JSR PC. TST.LNG.WRD 
15401 054546 026627 000010 000001 CMP 10(SP) #1 : ERR.FLG.* 7426 
15402 054554 001033 BNE 14$ 
15403 054556 104455 TRAP 55 ; 7429 
15404 054560 000130 .WORD 130 
15405 054562 007534 "WORD ARR.DAT 
15406 054564 000000 “WORD 0 
15407 054566 012746 006040 MOV #WRD.19,-(SP) : 7430 
15408 054572 012746 007020 MOV #FNC.5,-(SP) 
15409 054576 012746 005760 MOV #WRD.12,-(SP) 
15410 054602 012746 005740 MOV #WRD.10.-(SP) 
15411 054606 012746 006400 MOV #WRD.50,-(SP) 
15412 054612 012746 007216 MOV #FNC.18.-(SP) 
15413 054616 012746 005432 MOV #SIX.FMT,-(SP) 
15414 054622 012746 000007 MOV #7,-(SP) 
15415 054626 010600 MOV SP,RO s SP.¢ 
15416 054630 104414 TRAP —s_‘14 
15417 054632 012766 000001 000026 MOV #1,26(SP) : *,DODU.FLG 7431 
15418 054640 062706 000020 ADD #20,SP : 7428 
15419 054644 062706 000006 14$: ADD #6,5P : 7423 
15420 054650 000414 BR 16 : 7417 
15421 054652 010246 15$: MOV R2,-(SP) : 7439 
15422 054654 010146 MOV R1.-(SP) : NIB.PTR,* 
15423 054656 042716 177770 BIC #177770, (SP) 
15424 054662 012746 000001 MOV #1,-<SP) 
15425 054666 011646 MOV (SP) ,-(SP) 
15426 054670 004767 126444 JSR PC ,BLSPU2 
15427 054674 005205 INC R5 ; BAD.NIB.CNT 7440 
15428 054676 062706 000010 ADD #10,SP : 7438 
15429 054702 005203 16$: INC R3 > NIB.PAT 7443 
15430 054704 005201 INC R1 ; NIB.PTR 7414 
15431 054706 020127 000010 CMP R1,#10 : NIB.PTR,* 
15432 054712 003642 BLE 13$ 
15433 054714 005204 INC R4 ; PASS.CNT 7445 
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HARDWARD TEST SECTION SEQ 0316 
15435 ML4 22-Oct-1980 10:47:44 TOPS 
at 33 ; 22-0ct-1980 10:45:32 PA:< 
15438 054716 020427 000161 CMP RG, #161 ; PASS.CNT,* 7448 
15439 054722 001405 BEQ 17% 

5441 054730 00 BEQ t 
15442 054732 000167 177372 JMP 8$ 
15443 054736 104467 17$: TRAP 67 


15446 054744 000167 177202 JMP 3$ 
15447 054750 021627 000001 18$: CMP Aad ; DODU.FLG,* 7452 


| 
9$ 
15449 054756 016700 135204 MOV i -LUN,RO ; 7455 
54 4 
15452 054766 962706 000010 19$: ADD #10,SP : 7309 
15453 054772 0060207 RTS PC 


15455 : Routine Size: 265 words 
15456 ; Maximum stack depth per invocation: 21 words 


6 
15470 054774 T3533 
15471 054774 004767 176752 1$: JSR + Tans ; 7457 


15475 055006 000207 RTS PC 
15477 ; Routine Size: 6 words 
15478 : Maximum stack depth per invocation: 0 words 


15440 054724 020527 000011 CMP R5,#11 ; BAD.NIB.CNT,* 
154 730 1402 17 
15485 ; 7460 !<BLF/PAGE> 


.. 3 
CZMLAAO ML-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 314 
HARDWARD TEST SECTION 


15487 ;ML4 22-0ct-1980 10:47:44 TCPS=20 Bliss-16 V2(206) 
1eces 3 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI1.2 (76) 
| 945490 ; 7461 ! 
| 15491 ; 7462 =! 
| 19492 ; 7463 BGNTST; 
| 15493 ; 7464 
| 15494 ; 7465 ‘44 
15495 ; 7466 | TEST NUMBER: TST 34 
15496 ; 7467 =! 
15497 ; 7468 | TEST NAME: RAM BUS ADRS COUNTER TEST /READ PATH 
| 15498 ; 7469 =! 
| 15499 ; 7470 ' TEST DESCRIPTION: 
15500 ; 7471 |! 
15501 ; 7472 |! TEST ABILITY OF RAM/BUS ADRS 
15502 ; 7473 =! COUNTERS TO LOAD/UNLOAD THE SKIP 
15503 ; 7474 ! RAM DURING READ FUNCTIONS BY: 
15504 ; 7475! 
15505 ; 7476 =! 1. LOADING A REPEATING CCUNT OF 0 
15506 ; 7477! TO 63 INTO THE NIBBLES OF THE 
15507 : 7478 «=! FIRST 64 WORDS OF THE I0_BUF. 
15508 ; 7479 =! 
15509 ; 7480 |! 2. VIA MBUS WRITE FUNCTION WRITE 
15510 ; 7481 |! THE CONTENTS OF THE IO_BUF 
15511 ; 7482 =! INTO THE GOOD BLOCK. 
15512 ; 7483! 
15513 ; 7484 ! 3. CLEAR OUT THE 10_BUF 
15514 ; 7485! 
15515 ; 7486 =! 4. VIA MBUS READ FUNCTION READ 
15516 ; 7487 ! THE GOOD BLOCK FOR THE REPEATING 
15517 ; 7488 =! COUNT OF 0 TO 63. 
15518 ; 7489 ! 
15519 ; 7490 ! IMPLICIT INPUTS: 
15520 ; 7491 =! 
15521 ; 7492 =! 10_BUF 
15522 ; 7493! 
15523 ; 7494 ! A VECTOR OF 256 WORDS WHERE 
15524 ; 7495! DATA FOR MBUS READS AND WRITE 
15525 ; 7496 =! FUNCTION ARE FOUND. 
15526 ; 7497! 
15527 ; 7498 =! A GLOBAL OWN LOCATION TO THIS TEST. 
15528 ; 7499! 
15529 ; 7500 ! 
15530 ; 7501 !-- 
15531 ; 7502 
15532 ; 7503 local 
15533 ; 7504 DODU_FLG, 'DROP UNJT FLAG 
15534 ; 7505 WRD_CNT, ‘WORD COUNT 
| 15535; 7506 PAT_INC, ‘PATTERN INCREMENT 
15536 ; 7507 SIZ_EXP, 'SIZE EXPRESSION 
15537 ; 7508 POS EXP, ‘POSITIONAL EXPRESSION 
15538 ; 7509 TEMP; ‘TEMPORARY STORAGE LOCATION 
15539 ; 7510 
| 155460 ; 7511 CLR_MBUS; 
| 1§561; 7512 DODD_FLG = ZERO; 


SEQ 0317 
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CZMLAAO ML=11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE $15 


HARDWARD TEST SECTION SEQ 0318 
15543 ;ML4 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
HT or 3 22-Oct-1980 16:45:32 PA:<NEALE>BL2ML4.BL1.2 (76) 
15546 ; 7513 WRO_CNT = ZERO; 

15547 ; 7514 

12368 ; 313 incr COUNT from 0 to 63 do 'LOAD 64 WORDS WITH REPEATING COUNTS OF 0-63 

12330 : rate tr PAT Cat from -1 to 11 by 4 do ‘LOAD NIBBLES IN WORD WITH REPEATING COUNT OF 0-63 
@ egin 

15552 ; 7519 (16_BUF C.WRD_CNTJ)<O, 4> = .PAT_CNT + 1; 'LOAD FIRST NIBBLE IN WORD 

15553 ; 7520 (10-BUF C.WRD_CNTJ)<4, 4> = .PAT_CNT ¢ 2; 'LOAD SECOND NIBBLE IN WORD 

15554 ; 7521 (10_BUF C.WRD_CNT))<8, 4> = .PAT-CNT + 3; ‘LOAD THIRD NIBBLE IN WORD 

15555 ; 7522 (10_BUF C.WRD “CNT])<12, &> = -PAT_CNT + 4; 'LOAD FORTH NIBBLE IN WORD 

15556 ; 7523 WRD-CNT = .WRS_CNT + 1; 'INCREMENT TO NEXT WORD 

15557 ; 7524 end; 

15558 ; 7525 

15559 ;: 7526 GD_BLK_XFER (); 'SET UP A GOOD BLOCK XFERR 

15560 ; 7527 MLCS1 = write; 'DO A WRITE FUNCTION 

15561 ; 7528 

15562 ; 7529 do ‘DELAY UNTIL XFER TO COMPLETE 

15563 ; 7530 0 

15564 ; 7531 until .DRY IS_SET; 

15565 ; 7532 

15566 ; 7533 BGNSUB; 

15567 ; 7534 

15568 ; 7535 incr IO_CNT from 0 to 255 do ‘CLEAR OUT I0_BUF 

15569 ; 7536 10_BuF C.10_CNTJ = ZEROES; 

15570 ;: 7537 

15571 ; 7538 CLR_MBUS; 

15572 ; 7539 GD_BLK_XFER (); 'SET UP A GOOD BLOCK XFERR 

15573 ; 7540 MLCS1 = read; 'DO A READ FUNCTION 

15574 ; 7541 

15575 ;: 7542 do 'DELAY UNTIL XFER TO COMPLETE 

15576 ; 7543 0 

15577 ; 7544 until .DRY IS_SET; 

15578 ; 7545 

15579 ; 7546 CLR_MBUS; 

15580 ; 7547 SIZ_EXP = 4; 'FIELD SIZE FOR NIBBLES ALWAYS 4 BITS 

15581 ; 7548 WRD_CNT = 0; 

15582 ; 7549 

13383 ; 7330 incr COUNT from 0 to 63 do 'READ 64 WORDS IN I0_SUF 

15585 ; 7552 incre PAT_CNT from -1 to 11 by 4 do ‘READ REPEATING COUNTS OF 0-63 

15586 ; 7553 mre 

15587 ; 7554 POS EXP = ZERO; ‘FIELD SELECTOR SELECTS THE FOUR NIBBLES 

15588 ; 7555 PAT INC = ONE; 

13989 : 7336 TEMP = .10_BuF C.WRD_CNT); 'GET A WORD OUT OF 10_BUF 

15591 ; 7558 incr CNT from 0 to 3 do 'READ THE FOUR NIBBLES IN WORD 

15592 ; 7559 begin 

15593 ; 7560 

15594 ;: 7561 if .TEMP<.POS_EXP, .SIZ_EXP> neq (.PAT_CNT + .PAT 

15595 ;: 7562 ' COMPARE wieece” SS oe RESPECTIVE 0 -63 CNI 

15596 ; 7563 then f 

15597 : 7564 begin ‘ERROR AND SET DODU_FLG IF NEQ 


H 9 
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‘HARDWARD TEST SECTION SEQ 0319 
5599 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
ieept 3 22-0¢t-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (76) 
/ 4§602 ; 7565 ERRDF (89, ARR_DAT, 0); 
| 15603 ; 7566 PRINTB (SIX_FMT, FNC_18, WRD_5SO, WRD_10, WRD_12, FNC_6, WRD_19); 
15604 ; 7567 DODU_FLG = ONE; 
15605 ; 7568 end; 
| 15606 : 7569 
| 15607 : 7570 POS_EXP = .POS_EXP + 4; ‘POINT TO THE NEXT NIBBLE IN WORD 
15608 ; 7571 PAT-INC = .PAT-INC + 1; ‘INCREMENT THE 0-63 COUNT 
| 15609 ; 7572 end; 
15610 : 7573 
15611 ; 7574 WRD_CNT = .WRD_CNT ¢ 1; ‘GET THE NEXT IO_BUF WORD 
15612 ; 7575 end; 
15613 : 7576 
15614 : 7577 ENDSUB: 
15615 : 7578 
15616 ; 7579 if .DODU_FLG IS_SET ‘DROP THIS UNIT IF DODU_FLG SET 
15617 ; 7580 then 
15618 : 7581 begin 
15619 : 7582 DODU (.ML_LUN); 
15620 ; 7583 DOCLN; 
15621 ; 7584 end; 
15622 ; 7585 
13623 : 7586 ENDTST; 
15631 955010 004167 127044 $134: JSR R1,$SAVE5 : 7459 
15632 055014 162706 900012 SUB #12,SP 
15633 055020 152777 000040 134712 BISB #40,aML.REG+40 ; 7509 
15634 055026 016705 135136 MOV ML.DUT,RS 
15635 055032 042705 177770 BIC #177770,R5 
15636 055036 142777 000007 134674 BICB =ss #7, @ML..REG+40 
15037 055044 150577 134670 BISB R5,aML.REG+40 
15638 055050 005066 000010 CLR 10(SP) : DODU.FLG 7512 
15639 055054 005066 000002 CLR 2(SP) > WRD.CNT 7513 
15640 055060 005002 CLR R2 ; COUNT 7515 
15641 055062 012703 177777 1$: MOV #-1,R3 > *,PAT.CNT 7517 
15642 055066 016604 000002 2$: MOV 2(SP) RG : WRD.CNT,* 7519 
15643 055072 006304 ASL R4 
15644 055074 062704 010342 ADD #10.BUF ,R4 
15645 055100 010305 MOV R3,R5 ; PAT.CNT,* 
15646 055102 005205 INC RS 
15647 055104 042705 177760 BIC #177760,R5 
15648 055110 142714 000017 BICB —ss #17, (R4) 
15649 055114 150514 BISB  —_ R'5,, (R4) 
15650 055116 010305 MOV R3,R5 : PAT.CNT,®* 7520 
15651 055120 062705 000002 ADD #2,R5 
15652 055124 006305 ASL RE 


9 
CZMLAAO ML=-11 LOGIC TEST MACRO M1113 23-0CT=80 09:11 PAGE oe 
HARDWARD TEST SECTION SEQ 0320 
15654 3ML4 22-0¢t-1980 10:47:44 TOPS 
12022 : 22-0ct-1980 10:45:32 PA:< 
15657 055126 006305 ASL RS 
15658 055130 006305 ASL RS 
15659 055132 006305 ASL RS 
15660 055134 042705 177417 BIC #177417,R5 
15661 055140 142714 000360 B1¢B #360, (R4) 
15662 055144 150514 BISB R5,(R4) 
15663 055146 010305 MOV R3,R5 ; PAT.CNT,®* 7521 
15664 055150 062705 000003 ADD #3,R5 
15665 055154 000305 SWAB RS 
5666 055156 042705 170377 BIC #170377,R5 
15667 055162 042714 007400 BIC #7400, (R4) 
15668 055166 050514 BIS R5,(R4) 


15670 055172 062705 000004 ADD #4 ,R5 


R5 
15676 055210 042705 007777 BIC #7777,R5 
042714 170000 BIC 4 roe adm 


5214 
55220 
55222 005266 000002 INC 2(SP) ; WRD.CNT 7523 
15680 055226 062703 000004 ADD #4 ,R3 3 *,PAT.CNT 7517 
055232 020327 000013 CMP R3,#13 ; PAT.CNT,* 

Be : 


R2 ; COUNT 7515 
684 055242 020227 000077 CMP ala ; COUNT,* 


15086 055250 004767 135266 JSR PC,GD.BLK.XFER : 7526 
15687 055254 012777 000061 134416 MOV #61,aML.REG ; 7527 
15688 055262 105777 134462 3$: TSTB aML .REG*+50 ; 7531 
1568 5266 L 3$ 
15690 055270 104402 4$: TRAP 
005003 R3 ; 10.CNT 7535 
15692 055274 010304 5$: MOV R3,R4 ; IO.CNT,* 7536 
006304 R4 
15694 055300 tas 0 010342 CLR fate ees 
020327 000377 CMP R3,#377 


15698 055314 152777 000040 134416 BISB #40 ,aML.REG+40 : 7536 
ML.DUT ,R4 


10. CNT 
10.CNT,* 


42777 000007 134400 BICB #7 AML .REG+40 


So 
& 
~“ 
o 
~N 
oT 
w 
wn 
ced 
~ 
~ 
— 
“ 
x 
v 
o 
3) 
—] 
ao 
a 
= 
=< 
nn“ 
m 
» 
~ 
wn 
w 
eo) 


134322 MOV #74 aml REG : 7540 
05777 134366 6$: TSTB = @ML. REG*+50 : 7544 


6% 
52777 000040 134346 BISB #40,aML.REG+40 
16704 134572 MOV ML .DUT,R4 


Ww 
w 
o 
o-—-3200—— 
—> 
™ 
~ 
~ 
~~ 
° 
S 
S 
S 
~ 
— 


| 
15669 055170 010305 MOV R3,R5 ; PAT.CNT,* 7522 
| 
| 


CZMLAAO ML-11 LO 


HARDUARD TEST SE 


OOONOUEWN— 
Cooooo°oo 


POR) 2 3 
oO 
“w 
w 
™ 
Ww 
&* 


_ 
o 
uw 
uw 
& 
Ww 
o 


4 
4 


es 055602 


ag 


Sxuoone 


— 
oO 
= 
= 
oa 
GN 


177770 


000002 
177777 


000001 
000002 


010342 
000004 
000012 


125260 
000010 


006040 


000007 


000001 
000020 
000004 


000003 
000002 


000004 
000013 


000077 
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#177770,R4 

#7 AML .REG+40 
R4 QML .REG+40 
#4 ,6(SP) 
2(SP) 


R1 
#-1,R3 
R5 

#1, (SP) 
2(SP),R4 


RG 
 evhp ar 


R 
4(SP),-(SP) 
RS, -($P) 
eisp), o@ (SP) 


PC ,BL$GT1 
#10,SP 


1 
ARR .DAT 
0 


#WwRD.19,-(SP) 
#FNC.6,-(SP) 
#WRD.12,-(SP) 
#WRD.10.-(SP) 
#WRD.50,-(SP) 
#FNC.18,-(SP) 
#SIX.FMT,-(SP) 
#7,-(SP) 

14 

#1, 30(SP) 

20. SP 


*,SI1Z.EXP 
WRD.CNT 


: SIZ.EXP,* 


; PAT.CNT,* 
; PAT.INC,* 


; SP,* 
: *,DODU.FLG 
+ *,POS.EXP 


; WRO.CNT 
; *,PAT.CNT 
; PAT.CNT,* 


; COUNT 
; COUNT,* 


22-0ct-1980 1 
22-0ct-1980 1 


SEQ 0321 


TOPS 
PA:< 


7565 


7566 


kK 9 

CZMLAAO ML-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 319 
HARDWARD TEST SECTION 

19766 7ML4 

15767 ; 

15768 

15769 055650 006000 ROR RO 

15770 055652 103606 BLO 4$ 

15771 055654 026627 000010 000001 CMP 10(SP) #1 

15772 055662 001004 BNE 11% 

15773 055664 016700 134276 MOV ML .LUN,RO 

15774 055670 104451 TRAP 51 

15775 055672 104444 TRAP 44 

15776 055674 062706 000012 11$: ADD #12,SP 

15777 055700 000207 RTS PC 

15778 

15779 ; Routine Size: 221 words 

15780 ; Maximum stack depth per invocation: 

15785 

15786 

15790 

15794 055702 T34:: 


15796 055706 104466 TRAP 

15797 055710 006000 ROR RO 
15798 055712 103773 BLO 1$ 
iene 055714 000207 RTS PC 


15801 ; Routine Size: 6 words 


15802 3; Maximum stack depth per invocation: 


| 
15795 055702 004767 177102 1$: JSR + acs 
15809 ; 7587 !<BLF/PAGE> 


19 words 


0 words 


; DODU.FLG,* 


22-0ct-198 
22-0 t-198 


0 10: 
0 10: 


SEQ 0322 


47:44 


7:45:32 


TOPS 
PA:< 


7579 
7582 


7459 


7584 


- 
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C TEST MACRO M1113 23-OCT-80 09:11 PAGE $20 
10N SEQ 0323 


CZMLAAO ML-11 LOGI 
HARDWARD TEST SECT 


/ 15811 sML4 22-0ct=1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
rs Ht 3 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (77) 
| 158t4 ; 7588 | 
| 15815 : 7589 
15816 ; 7590 BGNTST; 
15817 ; 7591 
15818 ; 7592 il 44 
15819 ;: 7593 ' TEST NUMBER: TST 35 
15820 ; 7594! 
15821 ; 7595 ! TEST NAME: SYNC DATA BUS BIT UNIQUENESS TEST/WRITE PATH 
15822 ; 759% =! 
15823 ; 7597 ' TEST DESCRIPTION: 
15824 ; 7598 =! 
15825 ; 7599 =! TEST SYNCHRONOUS DATA BUS FOR 
15826 ; 7600 ! DATA BIT UNIQUENESS BY: 
15827 ; 7601! 
15828 : 7602 =! 1. LOADING THE FIRST 16 WORDS IN 
15829 ; 7603! THE 10 BUF WITH A SHIFTING 
15830 ; 7604 ! ZERO IN A FIELD OF ONES PATTERN. 
15831 ; 7605! 
15832 ; 7606 ! 2. VIA MBUS WRITE FUNCTION WRITE 
15833 ;: 7607! SHIFTING PATTERN THROUGH THE 
15834 ; 7608 ! DATA BUS AND INTO THE GOOD 
15835 ; 7609! BLOCK. 
15836 ; 7610 ! 
15837 ; 7611! 3. VIA DAT_DM MODE READ THE 
15838 ; 7612 =! GOOD BLOCK AND SAVE ALL GOOD 
15839 ; 7613! NIBBLE DATA, IN THEIR PROPER 
15840 ; 7614! SEQUENCE, INTO A STACK 
15841 ; 7615! STRUCTURE. 
15842 : 7616! 
15643 ; 7617! 4. INTERRIGATE STACK STRUCTURE FOR 
15844 ; 7618 ! SHIFTED DATA PATTERN. 
15845 ; 7619! 
15846 ; 7620 ! 
15847 ; 7621 | IMPLICIT INPUTS: 
15848 ; 7622 ! 
15849 ; 7623! PD_ TEMP 
15850 ; 7624 ! A BIT VECTOR OF 16 BITS WHERE 
15851 ; 7625! THE READ PROM DATA IS STORED 
15852 ; 7626 =! AND ACCESSED FROM. 
15853 ; 7627 =! 
15854 ; 7628 =! GLOBAL OWN LOCATION TO THIS 
15855 ; 7629 ! TST. 
15856 ; 7630 ! 
15857 ; 7631! 10_BUF 
15858 ; 7632 =! A VECTOR OF 256 WORDS WHERE 
15859 ; 7633! DATA FOR MBUS READS AND WRITE 
15860 ; 7634! FUNCTION ARE FOUND. 
15861 ; 7635 =! 
15862 ; 7636 =! A GLOBAL om LOCATION TO 
15863 ; 7637 =! THIS TEST 
15864 ; 7638 =! 
15865 ; 7639 =! STACK 


ae 


[-- 


CZMLAAO ML-11 LOGIC TEST 
‘HARDWARD TEST SECTION 
15867 ;ML4 
15868 ; 
15869 
15870 ; 7640 
15871 ; 7641 
15872 ;: 7642 
15875 ; 7643 
15874 ; 7644 
15875 ; 7645 
15876 ; 7646 
15877 ; 7647 
15878 ; 7648 
15879 ; 7649 
15880 ; 7650 
15881 ; 7651 
15882 ; 7652 
15883 ; 7653 
15884 ; 7654 
15885 ; 7655 
15886 ; 7656 
15887 ; 7657 
15888 ; 7658 
15889 ; 7659 
15890 ; 7660 
15891 ; 7661 
15892 ; 7662 
15893 ; 7663 
15894 ; 7664 
15895 ; 7665 
15896 ; 7666 
15897 ; 7667 
15898 ; 7668 
15699 ; 7669 
15900 ; 7670 
15901 ; 7671 
15902 ; 7672 
15903 ; 7673 
5904 ; 7674 
15905 ; 7675 
15906 ; 7676 
15907 ; 7677 
15908 ; 7678 
5909 ; 7679 
15910 ; 7680 
15911 ; 7681 
15912 ; 7682 
15913 ; 7683 
15914 ; 7684 
15915 ; 7685 
15916 ; 7686 
15917 ; 7687 
15918 ; 7688 
15919 ; 76089 
15920 ; 7690 
15921 ; 7691 


MACRO M1113 23-OCT-80 09:11 


: A VECTOR OF 198 BYTE LOCATIONS 

: WHERE GOOD NIBBLE DATA IS STORED 
: WHEN STRIPPING AWAY BAD NIBBLE 
LOCATIONS OF A BLOCK. 

i 

' 


BGNSUB; 
CLR_MBUS; 
50D0 FLG = 
TST_BAT 
SS. from 0 to 15 do 

10 UE C.CNT] = not .TST_PAT; 

rst PAT = .TST_PAT* ONE; 

end; 


GD_BLK_XFER (); 
MLTS1 = write; 


do 


0 
until 


ZERO; 
ONE ; 


DRY 1S_SET; 


incr CNT from 0 to 8 do 
STK_OFF C.CNT) = ZEROES; 


aT me = read; 
DELAY (ONE _US); 


incr CNT from 0 to 21 do 
begin 
PD_TEMP = .MLPD; 


DAT_CLK = ONE 
DELAY (ONE "USS; 
RD_LNG_WRD; 


a 9 
PAGE 321 


22-Oct-19 
22-Oct-19 


'STORES i. SHIFTED BIT PATTERN 
'DROP UNIT FLAG 

'NIBBLE PATTERN 

'TEST PATTERN 

'HOW MANY ‘17° NIBBLE PATTERN POSITION 
'HOW MANY ‘17° NIBBLE PATTERN POSITION 
'STACK POINTER 

! COUNTER 


'ONE IN A FIELD OF ZEROES 


‘WRITE 16 WORDS WITH SHIFTING 0 IN FIELD OF 1°S. 


'SET UP A GOOD BLOCK XFERR 
'WRITE SHIFTING PATTERN THROUGH SYNC BUS 


'DELAY UNTIL XFER TO COMPLETE 
'ZERO OUT THE NIBBLE OFFSET COUNTERS 


'RESET THE STACK POINIER 


'SET UP A DATA DIAG XFERR AT THE GOOD BLOCK 


'DO A READ FUNCTION 


'LOAD THE STACK WITH ALL GOOD NIBBLE DATA 


'GET THE F°OM DATA 
CLOCK OUT THE DATA WORD 


'READ THE DATA DIAG REGISTERS 


744 TOPS-20 Bliss-16 V2(206) 
732 PA:<NEALE>BL2ML4.BL1.2 (77) 


TO READ 
TO READ 


SEQ 0324 


N 9 
EST MACRO M1113 23-OCT-80 09:11 PAGE 522 


| 
CZMLAAO ML-11 LOGIC T 
|HARDWARD TEST SECTION SEQ 0325 
| 15923 :ML4 22-Oct-1980 10:47:44  TOPS=20 BLiss-16 v2(206) 
12950 3 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (77) 
15926 ; 7692 incr u. 5 PTR from 0 to 8 do 'LOOK AT 9 NIBBLES 
15927 ; 7693 37 
fa 3 rem STK_PTR = .STK_PTR + 1; ' INCREMENT THE STACK POINTER 
15930 ; 7696 if .PD_TEMP C.NIB_PTR] 1S_SET 'SEE IF THIS IS A GOOD NIBBLE 
15931 ; 7697 then 
15932 ; 7698 STK_OFF C.NIB_PTR] = .STK_OFF C.NIB_PTR] + 9 ‘INCREMENT NIBBLE OFF SET IF BAD 
15933 ; 7699 else 
HE 4 «| ; a LOAD_STACK (.STK_PTR, .NIB_PTR); 'ELSE LOAD THE STACK WITH GOOD NIBBLE DATA 
15936 ; 7702 end; 
15937 ; 7703 
15938 ; 7704 end; 
15939 ; 7705 
15940 ; 7706 STK_PTR = -1; 'RESET THE STACK POINTER 
5941 ; 7707 NIB_BIT = Ones 'SHIFTING NIBBLE PAT OF 1 IN FIELD OF 0°S 
15942 ; 7708 ALL_ONES_1 = ZER 'READ NO '17' NIBBLE PATTERN ON FIRST PASS 
Fs 3 444 ALL_ONES_2 = 3; 'READ THREE ‘17° NIBBLE PATTERN ON FIRST PASS 
15945 ; 7711 ince BY_FOUR_WRDS from 0 to 3 do 'READ 4 GROUPS OF 4 WORDS 
15946 ; 7712 begin 
15947 ;: 7713 
15948 ; 7714 incr BY_ONE_WRD from 0 to 3 do 'READ 4 GROUPS OF 1 WORD 
15949 ; 7715 begin 
15950 ; 7716 COUNT = ZERO; ‘CLEAR COUNT 
15951 ; 7717 
15952 ;: 7718 until .COUNT eql .ALL_ONES_1 do 'READ X NUMBER OF ‘17° NIBBLE PAT 
15953 ; 7719 egin 
15954 ; 7720 COUNT = .COUNT + 1; ‘INCREMENT COUNT 
13938 ; ert STK_PTR = .STK_PTR + 1; ' INCREMENT STACK POINTER 
15957 ; 7723 if (.stack C.STK_PTR]) neq %0'000017' ‘COMPARE STACK WITH ‘17° 
15958 ; 7724 then 
15959 ; 7725 begin ‘ERROR AND SET DODU_FLG IF NEQ 
15960 ; 7726 ERRDF (90, SYNC, 0); 
15961 ; 7727 PRINTB (SIX_FMT, WRD _23, WRD_39, PHR_4, WRD 2. Bn _5, WRD_19); 
15962 ; 7728 PRINTB (FMT~5, ONES, .stack C. STK_ PTRI, .STR_P 
15963 ; 7729 DODU_FLG = ONE ; 
15964 ; 7730 end; 
15965 ; 7731 
15966 ; 7732 end; 
15967 ; 7733 
15968 ; 7734 STK_PTR = .STK_PTR + 1; { JRCRERENT THE STACK POINTER 
HF 4 3 4b SAV-NIB = ( not .NIB_BIT) and (%0'000017') 'GENERATE THE SHIFTED BIT 
15971 ; 7737 if (.stack C.STK_PTR]) neq (.SAV_NIB) !COMPARE STACK TO SHIFTED BIT 
15972 ; 7738 then 
15973 ; 7739 begin ‘ERROR AND SET DODU_FLG IF NEQ 
15974 ; 7740 ERRDF (91, SYNC, 0); 
15975 ; 7741 PRINTB (Six, FMT, WRD 23, WRD_39, PHR_4, WRD_12, FNC_5, WRD_19); 
15976 : 7742 PRINTB (FMT_15, .STK"P TR); 
15977 : 7743 PRINTB (FMT_5, .SAV_NIB, .stack (.STK_PTR)); 


ye : ; on ee . , f 
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CZMLAAO ML-11 LOGIC T \ 
HARDWARD TEST SECTION SEQ 0326 
15979 :mL4 22-Oct-1980 10:47:44  TOPS=20 Bliss-16 v2(206) | 
12900 ; 22-Oct-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (77) 
15982 ; 7744 DODU_FLG = ONE; 
15983 ; 7745 end; 
5984 ; 7746 
15985 ; 7747 COUNT = ZEROES; 'CLEAR COUNT 
5986 ; 7748 
15987 ; 7749 until .COUNT eql .ALL_ONES_2 do 'READ X NUMBER OF ‘17° NIBBLE PAT 
15988 ; 7750 begin 
15989 ; 7751 COUNT = .COUNT + 1; ‘INCREMENT COUNT 
Habe ; erat STK_PTR = .STK_PTR + 1; ‘INCREMENT STACK POINTER 
15992 ; 7754 if (.stack (.STK_PTRJ) neq %0'000017" ‘COMPARE STACK POINTER WITH ‘17° 
15993 ; 7755 en 
15994 ;: 7756 begin ‘ERROR AND SET DODU_FLG IF SET 
15995 ; 7757 ERRDF (92, SYNC, 0); 
5996 ; 7758 PRINTB (SIX_FMT, WRD_23, WRD_39, PHR_4, WRD 2. ft. 5, wRD_19); 
15997 ; 7759 PRINTB (FMT Rot ONES. estack [C.STK_PTRJ, .STR_P 
15998 ; 7760 DODU_FLG = 
15999 ; 7761 end; 
16000 ; 7762 ~ 
16001 ; 7763 end; 
16002 ; 7764 
16003 ; 7765 NIB_BIT = .NIB_BIT*ONE; ‘SHIFT THE SHIFTED NIBBLE BIT 
16004 ; 7766 end; 
16005 ; 7767 
6006 ; 7768 NIB_BIT = ONE; ‘RESET THE SHIFTED NIBBLE BIT 
16007 ; 7769 ALL-ONES_1 = .ALL_ONES_1 + \; ‘READ ONE MORE '17' PATTERN 
16008 ; 7770 ALL_ONES_2 = .ALL_ONES 2 - 1; ‘READ ONE LESS ‘17° PATTERN 
16009 ; 7771 end; 
16010 ; 7772 
16011 : 7773 ENDSUB; 
16012 ; 7774 
16013 ; 7775 if .DODU_FLG IS_SET ‘DROP THIS UNIT IF DODU_FLG SET 
16014 : 7776 then 
16015 ; 7777 the 
16016 ; 7778 DObU (.ML_LUN); 
16017 ; 7779 DOCLN; 
16018 ; 7780 end; 
16019 ; 7781 
16020 ; 7782 ENDTST; 
16024 
16628 055716 004167 126136 $135: JSR R1,$SAVE5 : 7586 
16029 055722 162706 000016 SUB #16,SP 
16030 055726 104402 1$: TRAP 2 : 7656 
16031 055730 152777 000040 134002 BISB #40,aML.REG+40 : 7658 
16032 055736 016705 134226 MOV ML.OUT,R5 
| 


10 
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'HARDWARD TEST SECTION SEQ 0327 
| 16034 ;ML4 22-Oct-1980 10:47:44 TOPS 
| Ie ; 22-Oct-1980 10:45:32 PA:< 
16037 055742 042705 177770 BIC #177770,R5 | 
16038 055746 142777 000007 133764 BICB ss #7, AML .REG+40 
16039 055754 150577 133760 BISB  RS.aML.REG+40 
16040 055760 005016 CLR (SP) : DODU.FLG 7660 
16041 055762 012766 000001 000010 MOV #1,10(SP) : #,TST.PAT 7661 
16042 055770 005004 CLR RG > CNT 7663 
16043 055772 010405 2s: MOV R4,RS ; CNT,* 7665 
16044 055774 006305 ASL RS 
16045 055776 016665 000010 010342 MOV 10(SP), 10. BUF (RS) : TST.PAT,* | 
16046 056004 005165 010342 COM 10. BUF (RS) 
16047 056010 006366 000010 ASL 10(SP) : TST.PAT 7666 
16048 056014 005204 INC RG > CNT 7663 
16049 056016 020427 000017 CMP R4 #17 : CNT,* 
16050 056022 003763 BLE 2$ 
16051 056024 004767 134512 JSR PC,GD.BLK.XFER : 7669 
16052 056030 012777 000061 123642 MOV #61, aML.REG : 7670 
16053 056036 105777 133706 3$: S72 «= @ML.REG+50 : 7674 
16054 056042 100375 BPL 3$ 
16055 056044 005005 CLR RS : CN 7676 | 
6056 056046 105065 011342 4$: CLRB STK .OFF (RS) 3; * (CNT) 7677 
16057 056052 005205 INC RS > CNT 7676 
16058 056054 020527 000010 CMP R5,#10 : INT,* 
16059 056060 003772 BLE 4 
16060 056062 152777 000040 133650 BISB #40,aML.REG+40 ; 7677 
6061 056070 016705 134074 MOV L.DU 
16062 056074 042705 177770 BIC #177776,R5 
16063 056100 142777 000007 133632 BICB #7, aML.REG+40 
16064 056106 150577 133626 BISB RS,aML.REG+40 
16065 056112 012702 177777 MOV #-1,R2 : *,STK.PTR 7680 
16066 056116 004767 134504 JSR Pc BAT .DM.XFER : 7681 | 
16067 056122 012777 000071 133550 MOV #71, aML.REG : 7682 
16068 056130 012704 000001 MOV #1,R4 + *,$$TMP2 7683 
16069 056134 001411 5$: BEQ 8$ 
16070 056136 016705 123754 MOV LSDLY,R5 : *,$STMP1 
16071 056142 001404 BEQ 7$ 
16072 056144 005066 000014 6$: CLR 14 (SP) : $STMP 
16073 056150 005305 DEC RS > $$TMP1 
16074 056152 001374 BNE 6$ 
16075 056154 005304 7$: DEC R4 : $$TMP2 
16076 056156 000766 BR 5$ 
16077 056160 005003 8$: CLR R3 : CNT 7685 
16078 056162 017767 133742 133472 9$: MOV @ML .REG+230,PD. TEMP : 7687 
16079 056170 152777 000020 133622 BISB #20,aML.REG+120 : 7688 
16080 056176 012704 000001 MOV #1,R4 > *,$S$TMP2 7689 
16081 056 001411 10$: BEA 138 
16082 056 016705 123706 MOV LSDLY,R5 : *,$$TMP1 
16083 056210 001404 BEQ 1 
16084 056212 005066 000014 11$: CLR 14 (SP) : $STMP 
16085 056216 005305 DEC RS > $$TMP1 
16086 056220 001374 BNE 11$ 
16087 056222 005304 128: DEC R4 : $$TMP2 
16088 056224 000766 BR 10% 


| 
| 
| 
| 
| 
—_ae 


CZMLAAO ML-11 LOGIC TEST 
HARDWARD TEST SECTION 


16090 
16091 
16092 
ror? b26g¢6 


een Sh tet! ot ee Sey oe eee et 
So 
wv 
an 
$ 


No 
oo 
ww 
an 
Ww 
GN 
ern 


012746 


011662 
177770 
000001 


124570 
000010 


133620 
000010 


000025 
177777 


0 
000003 
000006 


011354 


006040 


dD. 10 
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15$: 


16$: 


000002 
000004 
17$: 
198: 


000017 


QML .REG*+170,01. TEMP 
QML .REG*200,02. TEMP 
+ petteredtanad nintiael 


R 
R2 
R5,RG 

Rd 

R4 

RG 

#PD. TEMP, RG 
R4,-(SP) 
R5,=(SP) 
#177770, (SP) 
#1,-(SP) 
-(§P) 

PC ,BL$GT2 
#10,SP 

RO 

15$ 
R4 

STK.OFF (RS) RG 
#11 


oR4 
R4,STK.OFF (RS) 
16% 


PC,LOAD.STACK 
laa ae ete 


R 

R5,#10 
14% 

R3 
R3,#25 
9$ 
#-1,R2 
#1,2(SP) 
6(SP) 
#3,4(SP) 
R4 

R5 

R1 
R1,6(SP) 
20% 

R1 

R2 
STACK(R2) #17 
19% 

55 

132 

_— 
#WRD.19,-(SP) 


NIB.PTR 
STK.PTR 
NIB.PTR,* 


; NIB.PTR,* 


*(NIB.PTR),* 
*,*(NIB.PTR) 


STK.PTR,* 
NIB.PTR,* 


; NIB.PTR 
; NIB.PTR,* 


CNT 
CNT,* 


*,STK.PTR 
*,NIB.BIT 
ALL.ONES.1 
*,ALL.ONES.2 
BY.FOUR.WRDS 
BY .ONE .WRD 


COUNT 
COUNT, ALL .ONES. | 


COUNT 
STK.PTR 
*(STK.PTR),* 


SEQ 0328 


7:44 TOPS 
5:32 PA:< 


, 10 
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CZMLAAO ML-11 LOGIC T 
HARDWARD TEST SECTION SEQ 0329 
16146 ML4 22-0ct-1980 10:47:44 TOPS 
+ or 4 ; 22-Oct-1980 10:45:32 PA:< 
| 16149 056464 012746 007020 MOV #FNC.5,<(SP) 
| 16150 056670 012746 005760 MOV #WRD.12,-(SP) 
16151 056474 012746 006630 MOV #PHR.4,-(SP) 
16152 056500 012746 006250 MOV #WRD.39,-(SP) 
16153 056504 012746 006076 MOV #WRD.23,-(SP) 
| 16154 056510 012746 005432 MOV #SIX.FMT,-(SP) 
16155 056514 012746 000007 MOV #7,-(SP) 
16156 056520 010600 MOV SP,RO : SP,* 
16157 056522 104414 TRAP =s-:‘14 
16158 056524 010216 MOV R2, (SP) : STK.PTR,* 7728 
16159 056526 005046 CLR -(§P) 
16160 056530 116216 011354 MOVB — STACK(R2), (SP) : #(STK.PTR),* 
16161 056534 012746 177777 MOV #-1,-(SP) 
16162 056540 012746 004366 MOV #FMT.5,-(SP) 
16163 056544 012746 000004 MOV #4 ,-(SP) 
16164 056550 010600 MOV SP,RO : SP,* 
16165 056552 104414 TRAP —s--‘14 
16166 056554 012766 000001 000030 MOV #1,30(SP) : *,DODU.FLG 7729 
16167 056562 062706 000030 ADD #30,SP : 7725 
16168 056566 000717 BR 19$ : 7718 
16169 056570 005202 20S: INC R2 : STK.PTR 7734 
16170 056572 012766 000017 000012 MOV #17,12(SP) > ¢,SAV.NIB 7735 
16171 056600 046666 000002 000012 BIC 2(SP),12(SP) : NIB.BIT,SAV.NIB 
16172 056606 005003 CLR R3 : 7737 
16173 056610 156203 011354 BISB STACK(R2),R3 > #(STK.PTR),* 
16174 056614 020366 000012 CMP R3,12(SP) + #,SAV.NIB 
16175 056620 001455 BEQ 21$ 
16176 056622 104455 TRAP = 55 ; 7740 
16177 056624 000133 WORD 133 
16178 056626 007500 WORD SYNC 
16179 056630 000000 “WORD 0 
16180 0 012746 006040 MOV #WRD.19,-(SP) : 7741 
16181 0 012746 007020 MOV #FNC.5,-(SP) 
1618 056642 012746 005760 MOV #WRD.12,-(SP) 
16183 056646 012746 006630 MOV #PHR.4,-(SP) 
16184 056652 612746 006250 MOV #WRD.39,-(SP) 
16185 056656 012746 006076 MOV #WRD.23,-(SP) 
16186 056662 012746 005432 MOV #SIX.FMT,-(SP) 
16187 056666 012746 000007 MOV #7,-(SP) 
16188 056672 010600 MOV SP,RO > SP,* 
16189 056674 104414 TRAP —s-_‘'14 
16190 056676 010216 MOV R2, (SP) : STK.PTR,* 7742 
16191 056700 072746 005106 MOV #FMT.15,-(SP) 
16192 056704 012746 000002 MOV #2,-(SP) 
16193 056710 010600 MOV SP,RO : SP,* 
16194 056712 104414 TRAP —s-_‘14 
16195 056714 005016 CLR (SP) : 7743 
16196 056716 116216 011354 MOVB —s STACK (R2), (SP) : *(STK.PIR),* 
16197 056722 016646 000036 MOV 36(SP),-(SP) > SAV.NIB, * 
16198 056726 012746 004366 MOV #FMT.5,-(SP) 
16199 056732 012746 000003 MOV #3,-(SP) 
| 16200 056736 010600 MOV SPRO : SP,e 
| 
| 
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HARDWARD TEST SECTION 


16202 ML4 
16203 ; 
16204 

| 16205 056740 104414 TRAP ‘14 

| 16206 056742 012766 000001 000032 MOV #1,32(SP) 

| 16207 056750 062706 000032 ADD #32,SP 
16208 056754 005001 21$: CLR R1 

| 16209 056756 020166 000004 22$: CMP R1,4(SP) 

| 16210 056762 001456 BEQ = 238 
16211 056764 005201 INC RI 
16212 056766 005202 INC R2 
16213 056770 126227 011354 000017 CMPB ss STACK (R2),#17 
16214 056776 001767 BEQ 228 
16215 057000 104455 TRAP 3s 55 
16216 057002 000134 .WORD 134 
16217 057004 007500 “WORD SYNC 
16218 057006 000000 "WORD 0 
16219 057010 012746 006040 MOV #WRD.19,-(SP) 
16220 057014 012746 007020 MOV #FNC.5,-(SP) 
16221 057020 012746 005760 MOV #WRD.12,-(SP) 
16222 057024 012746 006630 MOV #PHR.4.-(SP) 
16223 057030 012746 006250 MOV #WRD.39,-(SP) 
16224 057034 012746 006076 MOV #WRD.23,-(SP) 
16225 057040 012746 005432 MOV #SIX.FMT,-(SP) 
16226 057044 012746 000007 MOV #7,-(SP) 
16227 057050 010600 MOV SP.RO 
16228 057052 104414 TRAP 
16229 057054 010216 MOV R2, (SP) 
16230 057056 005046 CLR -(§P) 
16231 057060 116216 011354 MOVB STACK (R2), (SP) 
16232 057064 012746 177777 MOV #-1,-(SP) 
16233 057070 012746 004366 MOV #FMT.5,-(SP) 
16234 057074 012 000004 MOV #4,-(5P) 
16235 057100 010600 MOV SP.RO 
16236 057102 104414 TRAP ‘14 
16237 057104 012766 000001 000030 MOV #1,30(SP) 
16238 057112 062706 000030 ADD #30,SP 
16239 057116 000717 BR 22% 
16240 057120 006366 000002 23$: ASL 2(SP) 
16241 057124 005205 INC R5 
16242 057126 020527 000003 CMP R543 
16243 057132 003002 BGT 24$ 
16244 057134 000167 177264 JMP 18$ 
16245 057140 012766 000001 000002 24$: MOV #1,2(SP) 
16246 057146 005266 000006 INC 6 (SP) 
16247 057152 005366 000004 DEC 4 (SP) 
16248 057156 005204 INC RG 
16249 057160 020427 000003 CMP R483 
16250 057164 003002 BGT 25$ 
16251 057166 000167 177230 JMP 17$ 
16252 057172 104467 25$: TRAP 67 
16253 057174 006000 ROR RO 
16254 057176 103002 BHIS 26% 
16255 057200 000167 176522 JMP 1$ 
16256 057204 021627 000001 26%: CMP (SP) #1 


*,DODU.FLG 


COUNT 
COUNT ,ALL.ONES.2 


COUNT 
STK.PTR 
*(STK.PTR),* 


; .,* 


3; STK.PTR,* 
; *(STK.PTR),* 


i: ,* 


* ,DODU.FLG 


NIB.BIT 
BY .ONE .WRD 
BY.ONE .WRD,* 


* ,NIB.BIT 
ALL .ONES.1 
ALL.ONES.2 
BY .FOUR.WRDS 


BY.FOUR.WRDS,* 


DODU.FLG,* 


SEQ 03350 


47:44 TOPS 
7:45:32 PA:< 


7759 


CZMLAAO ML=11 LOGIC TEST 
HARDWARD TEST SECTION 


000207 


004767 


000207 


7783 


10 
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132750 


000016 


176462 


! <BLF /PAGE > 


3ML4 
BNE 27$ 
MOV ML.LUN,RO 
TRAP 51 
TRAP 44 
273: ADD #16,SP 
RTS PC 
; Routine Size: 357 words 


; Maximum stack depth per invocation: 


135:: 
1$: JSR Pc,$135 
TRA’ 66 
ROR RO 
BLO i$ 
RTS PC 


; Routine Size: 6 words 


; Maximum stack depth per invocation: 


26 words 


0 words 


22-0ct-19 
22-0ct-19 


0 10 
0 10 


747: 


745: 


SEQ 0331 
7:44 TOPS 
5:32 PA:< 

7778 
7586 
7780 


CZ7™1 AAO ML=11 LOGIC TEST 


HARDWARD TEST SECTION 


00 ;ML4 


Be Be Be Be Be Be Be Se Fe Se Be Se Se Se Be Se Be Se Se Se Se Se Se Se Be Fe Ge Se Se Ge Ge Se Se Se Se Ge Te Se Se Se Se Ge Se Fe Ge Se Se Se te Ge Ge Ge 


MACR 


H 10 
0 M1113 23-0CT-80 09:11 PAGE 329 


22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (78) 


BGNTS7; 
'e¢ 
TEST NUMBER: TST 36 
| TEST NAME: SYNC DATA BUS BIT UNIQUENESS TEST/READ PATH 
i TEST stl 
TEST SYNCHRONOUS DATA BUS READ 
! PATH FOR DATA BIT UNIQUENESS BY: 
1. LOADING THE FIRST 16 WORDS IN THE IO_BUF WITH A SHIFTING 
! ZERO IN A FIELD OF ONES PATTERN. 
! 2. VIA MBUS WRITE FUNCTION WRITE SHIFTING PATTERN INTO THE GOOD BLOCK. 
| 3. CLEAR THE I10_BUF. 
4. VIA MBUS REAL FUNCTION READ THE SHIFTING PATTERN THROUGH THE 
! READ PATH. 
| 5. INTERIGATE THE IO0_BUF FOR THE SHIFTING PATTERN. 
IMPLICIT paws: 
a A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTION ARD FOUND. 
local 
DODU_FLG, 'DROP UNIT FLAG 
TST_PAT; 'TEST PATTERN 
CLR_MBUS; 
poov FLG = ZERO; 
TST_BAT = ONE; ‘ONE IN A FIELD OF ZEROES 
incr CNT from 0 to 15 do ‘WRITE 16 WORDS WITH SHIFTED 0 IN A FIELD OF 1°S 


begin 
10_BuF C. 
TST_PAT 
end; 


GD_BLK_XFER 
MLUS1 = writ 


do 

0 
until .DRY | 
BGNSUB; 


CNT] = not .TST_PAT; 


=. 1ST_PAT*ONE; 

QO; 'SET UF A GOOD BLOCK XFERR 

e; iWRITE SHIFTING PATTERN 
'DELAY UNTIL XFER TO COMPLETE 

S_SET; 


SEQ 0332 


CZMLAAO ML=-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 330 

HARDWARD TEST SECTION SEQ 0333 
16356 ;ML4 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 Vv2(206) 
Ht 3H4 3 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI1.2 (78) 
16359 ; 7836 incr CNT from 0 to 15 do 'CLEAR OUT THE IO_BUF 
16360 ; 7837 10_BUF C.CNTJ] = ZEROES; 

| 16361 ; 7838 

| 16362 ; 7839 CLR_MBUS; 

| 16363 ; 7840 GD Bix. _XFER (); 'SET UP A GOOD BLOCK XFERR 

| 16364 ; 7841 MLCS1 = read; 'READ SHIFTING PATTERN THROUGH SYNC BUS 

| 16365 ; 7842 
16366 ; 7843 do 'DELAY UNTIL XFER TO COMPLETE 
16367 ; 7844 0 
16368 ; 7845 until .DRY IS_SET; 
16369 ; 7846 
16370 ; 7847 TST_PAT = ONE; ‘SHIFTING PATTERN 
16371 ; 7848 
16372 ; 7849 incr CNT from 0 to 15 do ‘READ IO_BUF FOR SHIFTING 0 IN FIELD OF 1°S 
16373 ; 7850 begin 
16374 ; 7851 
16375 ; 7852 if .10_BUF [C.CNT] neq ( not .TST_PAT) ‘COMPARE IO_BUF TO SHIFTED PAT 
16376 ; 7853 th * 
16377 ; 7854 begin 'ERROR AND SET DODU_FLG IF NEQ 
16378 ; 7855 ERRDF (93, SYNC, 0); 
16379 ; 7856 PRINTB (FIV_FMT, WRD_23, FNC_6, WRD_19, WRD_39, PHR_4) 
16380 ; 7857 PRINTB (FMT ne. ( not~.1ST_PAT), .10~ “pur C.CRTJ. ( not “Ts _PAT xor .10_BUF C.CNTJ)); 
16381 ; 7858 DODU_FLG = 
16382 ; 7859 end; 
16383 ; 7860 
16384 ; 7861 TST_PAT = .TST_PAT“ONE; ‘SHIFT THE PATTERN AND REPEAT 
16385 ; 7862 end; 
16386 ; 7863 
16387 ; 7864 ENDSUB; 
16588 ; 7865 
16389 ; 7866 if .DODU_FLG IS_SET ‘DROP THIS UNIT IF CODU_FLG IS_SET 
16390 ; 7867 then 
16391 ; 7868 ot em 
16392 ; 7869 DObU (.ML_LUN); 
16393 ; 7870 DOCLN; 
16394 ; 7871 end; 
16395 ; 7872 
eras ; 7873 ENDTST; 
16404 057244 004167 124610 $136: JSR R1,S$SAVE5S 2 7782 
16405 057250 152777 000040 132462 B1SB 40, can REG+40 : 7815 
16406 057256 016705 132706 Vv R5 
16407 057262 042705 177770 BIC aay TO RS 
16408 057266 142777 000007 132444 BICB #7, QML .REG*+40 
16409 057274 150577 132440 BISB R5,aML.REG+40 

| 

| 

| 


4.10 
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CZMLAAO ML=11 LOGIC 1 
'HARDWARD TEST SECTION SEQ 0334 
| 16411 sML4 22-0¢t-1980 10:47:44 TOPS 
enlg 3 22-0¢t-1980 10:45:32 PA:< 
16414 057300 005005 CLR RS : DODU.FLG 7818 
176415 057302 612704 000001 MOV #1 RG : #,TST.PAT 7819 
| 16416 057306 005000 CLR RO > CNT 7821 
16417 057310 010001 1$: MOV RO,R1 : CNT,¢* 7823 
| 16418 057312 006301 ASL R1 
16419 057314 010461 010342 MOV R4,10.BUF (R1) ; TST.PAT,* 
16420 057320 005161 010342 COM 10.BUF (R15 
16421 057324 006304 ASL R4 : TST.PAT 7824 
16422 057326 005200 INC RO + CNT 7821 
16423 057330 020027 000017 CMP RO, #17 > CNT,* 
16426 057334 003765 BLE 1$ 
16425 057336 004767 133200 JSR PC,GD.BLK.XFER : 7827 
16426 057342 012777 000061 132330 MOV #61,aML.REG : 7828 
16427 057350 105777 132374 2$: TSTB ML. REG*+50 : 7832 
16428 057354 100375 BPL 2$ 
16429 057356 104402 3$: TRAP 
16430 057360 005000 CLR RO : CNT 7836 
16431 057362 010001 4$: MOV RO,R1 > CNT,* 7837 
16432 057364 006301 ASL R1 
16433 057366 005061 010342 CLR 10. BUF (R1) 
16434 057372 005200 INC RO : CNT 7836 
16435 057374 020027 000017 CMP RO,#17 : CNT, * 
16436 057400 003770 BLE 4$ 
16437 057402 152777 000040 132330 BISB #40,aML.REG+40 : 7837 
16438 016703 132554 MOV ML .DUT,R3 
16439 057414 042703 177770 BIC #177776, R3 
16440 057420 142777 000007 132312 BICB  4#7,aML.REG+40 
16441 057426 150377 132306 BISB R3,aML.REG+40 
16442 057432 004767 133104 JSR PC.GD.BLK.XFER : 7840 
16443 057436 012777 000071 132234 MOV #71, aML.REG : 7841 
16444 057444 105777 132300 5$: TSTB aML .REG+5S0 ‘ 7845 
16445 057450 100375 BPL 5$ 
16446 057452 012704 000001 MOV #1,R4 : *,TST.PAT 7847 
16447 057456 005002 CLR R2 > CNT 7849 
16448 057460 010201 6$: MOV R2,R1 > CNT,* 7852 
16449 057462 006301 ASL R1 
16450 057464 012703 010342 MOV #10.BUF ,R3 
16451 057470 060103 ADD R1,R3 
16452 057472 010401 MOV R4,R1 ; TST.PAT,* 
16453 057474 005101 COM RI 
16454 057476 021301 CMP (R3) ,R1 
16455 057500 001447 BEQ 7$ 
16456 057502 104455 TRAP = 555 ; 7855 
16457 057504 000135 .WORD 135 
16458 057506 007500 “WORD SYNC 
16459 057510 000000 “WORD 
16460 057512 012746 006630 MOV #PHR.4,-(SP) ; 7856 
16461 057516 012746 006250 MOV #WRD.39,-(SP) 
16462 057522 012746 006040 MOV #WRD.19,-(SP) 
16463 057526 012746 007030 MOV #FNC.6,-(SP) 
16464 057532 012746 006076 MOV #WRD.28,-(SP) 
16465 057536 012746 005414 MOV #FIV.FMT,-(SP) 


r 
| 


kK 10 
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LOGIC TEST 
'HARDWARD TEST SECTION 
| 16467 7ML4 
| 16468 ; 
16469 
| 16470 057542 012746 000006 MOV #6,-(SP) 
16471 057 010600 MOV SP,RO 3 SP,* 
16472 057550 104414 TRAP 1 
16473 057552 011316 MOV (R3), (SP) : 
16474 057554 010146 MOV R1,-(SP) 
16475 057556 046616 000002 BIC 2(SP), (SP) 
16476 057562 040166 000002 BIC R1,2(SP) 
16 057 052616 BiS (SP)+, (SP) 
16478 057570 011346 MOV (R3),-(SP) 
16479 057572 010146 MOV R1,-(SP) 
16480 057574 012746 004224 MOV #FMT.2,-(SP) 
16481 057600 012746 000004 MOV #4 ,-(SP) 
82 0576 019600 MOV ,RO 3: SP,e 
16483 057606 104414 TRAP 1 
16484 057610 012705 000001 MOV #1,R5 ; *,DODU.FLG 
16485 057614 062706 000026 ADD #26,SP ; 
164 05762 006304 7$: ASL R4 ; TST.PAT 
16487 057622 005202 INC R2 ; CNT 
057624 020227 000017 CMP R2,#17 ; CNT,* 
16489 057630 003713 BLE 6$ 
16490 057632 104467 TRAP 67 : 
16491 057634 006000 ROR RO 
16492 057636 103647 BLO 3$ 
16493 057640 005305 DEC R5 ; DODU.FLG 
16494 057642 001004 BNE 8$ 
16495 057644 016700 132316 MOV ML.LUN,RO 5 
057650 104451 TRAP 51 
16497 057652 104444 TRAP 44 
sees 057654 000207 8$: RTS PC 
16500 ; Routine Size: 133 words 
+4 ; Maximum stack depth per invocation: 17 words 
16507 
16511 
16515 057656 136:: 
16516 057656 004767 177362 1$: JSR PC,$136 
16517 057662 104466 TRAP 66 
16518 057664 006000 ROR RO 
16519 057666 103773 BLO 1$ 
16520 057670 000207 RTS PC 
16525 ;ML4 22-0ct-1980 10:47:44 
16526 ; 22-0ct-1980 10:45:32 
16527 
16528 ; 7875 =! 
16529 ; 7876 =! 
16530 ; 7877 BGNTST; 
16531 ; 7878 
16532 ; 7879 + 
16533 ; 7880 |! TEST NUMBER: TST 37 
16534 ; 7881 ! 
16535 ; 7882 ! TEST NAME: ARRAY ADDRESS MUX TEST 
16536 ; 7883 =! 
16537 ; 7884 | TEST DESCRIPTION: 


camino 


22-0c t-198 
22-0c t-198 


01 
01 


0 
0 


SEQ 0335 


47:44 
7:45:32 


TOPS-20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI.2 (79) 


TOPS 
PA:< 


7857 


7871 


CZMLAAO ML-11 LOGIC TEST 
| HARDWARD TEST SECTION 
| 


16538 ; 7885 
16539 ; 7886 
16540 ; 7887 
16541 ; 7888 
16542 ; 7889 
16543 ; 7890 
16544 ; 7891 
16545 ; 7892 
16546 ; 7893 
16547 ; 7894 
16548 ; 7895 
16549 ; 7896 
16550 ; 7897 
16551 ; 7898 
16552 ; 7899 
16553 ; 7900 
16554 ; 7901 
16555 ; 7902 
16556 ; 7903 
16557 ; 7904 
16558 ; 7905 
16559 ; 7906 
16560 ; 7907 
16561 ; 7908 
16562 ; 7909 
16563 ; 7910 
16564 ; 7911 
16565 ; 7912 
6566 ; 7913 
16567 ; 7914 
16568 ; 7915 


10 
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TEST FOR UNIQUE MOS RAM ROW 
AND COLUMN ADDRESSING BY: 


1. Fgh AG FINDING A ERROR FREE 


EITHER 16K OR 64K MOS RAMS. 


2. WRITE A BACKGROUND OF ALL 
ONES INTO THE GOOD CHUNK 


3. WRITE ZEROES INTO THE FIRST 
BLOCK OF THE GOOD CHUNK. 


4. READ REMAINING BLOCKS IN 
GOOD CHUNK FOR ONES. 
IMPLICIT INPUTS: 
10_BUF 
A VECTOR OF 256 WORDS 
WHERE DATA FOR MBUS 


READ AND WRITE TRANSFERS 
CAN BE FOUND. 


al 
“DSA ADRS, 
FND_GD_ CHK; 


DSA_ADRS = ZEROES; 
D .DSA_ADRS - .RAS_INC; 
10 BuF = ONES; 
= ONE; 
Ect DIS = ONE ; 


do 


begin 
DSA_ADRS = .DSA_ADRS + .RAS_INC; 


'DSA ADRS COUNTER 
'FOUND GOOD 16K/64K CHUNK FLAG 


'REST DSA COUNT 

'LOAD FIRST I0_ BUF ee oo ONES 
'SET ON FIRST TO BUF WOR 

!DISABLE ECC 


!DO UNTIL FOUND GOOD CHUNK OR LBT 
‘INCREMENT DSA ADRS COUNTER 


SEQ 0336 


r 


CTMLAAO ML-11 LOG 
‘HARDWARD TEST SEC 


; TEST MACRO M1113 23-OCT-80 09:11 PAGE 


1 
TIGN 


22-0¢t-1980 10:47:44 
22-0ct-1980 10:45:32 


'16K OR 64K WORDS 
'LOAD os ~+y 
‘LOAD DSA_ ADRS 

!DO A URITE FUNCTION 


'DELAY UNTIL XFER TO COMPLETE 


TOPS=20 Bliss-16 V2(206) 
PA:<NEALE>BL2ML4.BLI1.2 (79) 


'DID XFERR CAUSE AN SC 
'XFERR WAS OK 

'LOAD WORD COUNT 

‘LOAD UBUS Ras 

‘LOAD DSA ADRS 

'DO A WRITE CHECK FUNCTION 


'DELAY UNTIL XFER TO COMPLETE 


!1S THIS CHUNK GOOD 
!YES SET FLG 
'NO, CLR AND DO NEXT CHUNK 


'THIS CHUNCK IS BAD TRY NEXT CHUNCK 
'CLR AND TRY AT NEXT CHUNCK 


‘REPEAT UNTIL FOUND GOOD CHUNCK OR AT LBT 
‘IF AT LBT THEN ERROR AND DROP UNIT 


16581 ;ML4 
16582 ; 
16583 

6584 ; 7927 MLWC = .W_C SIZE; 
16585 ; 7928 MLBA = 10 BOF; 

6586 ; 7929 MLDA = .DSA_ADRS; 
16587 ; 7930 ML_FUNC = write; 
16588 ; 7931 
16589 ; 7932 do 
16590 ; 7933 0 
16591 ; 7934 until .DRY IS_SET; 
16592 ; 7935 
16593 ; 7936 if .SC IS_NOT_SET 
16594 ; 7937 then 
16595 ; 7938 begin 
16596 ; 7939 MLWC = .W_C_ SIZE; 
16597 ; 7940 MLBA = 10 -B0F; 
16598 ; 7941 MLDA = .DSA_ADRS; 
16599 ; 7942 ML_FUNC = WRT_CHK; 
16600 ; 7943 
16601 ; 7944 do 
16602 ; 7945 
16603 ; 7946 until .DRY IS_SET; 
16604 ; 7947 
16605 ; 7948 if .SC IS_NOT_SET 
16606 ; 7949 then 
16607 ; 7950 nEND _GD_CHK = ONE 
16608 ; 7951 a. 

16609 ; 7952 begin 

16610 ; 7953 CLR_MBUS; 

16611 ; 7954 BAI = ONE; 

16612 ; 7955 ECC_DIS = ONE; 

16013 ; 7956 end; 

16614 ; 7957 

16615 ; 7958 end 

16616 ; 7959 else 

16617 ; 7960 begin 

16618 ; 7961 CLR_MBUS; 

16619 ; 7962 BAI = ONE; 

16620 ; 7963 ECC_DIS = ONE; 

16621 ; 7964 end; 

16622 ; 7965 

16623 ; 7966 end 

16624 ; 7967 until (.FND_GD_CHK IS_SET ) or (.LBT IS_SET ); 
16625 ; 7968 

16626 ; 7969 if .LBT IS_SET 

16627 ; 7970 then 

16628 ; 7971 begin 

16629 ; 7972 ERRDF (111, INTER, 0); 

16630 ; 7973 PRINTB (FIV_FMT, FNC 13, FNC_17, WRD_52, WRD_60, WRD_ 56); 
16631 ; 7974 PRINTB (THR™ inof WRD_ 14, PHR “10, FNC “15); 
16632 ; 7975 DODU ( -ML_LUN 

16633 ; 7976 DOCLN; 

16634 ; 7977 end 

16635 ; 7978 else 


‘A GOOD CHUNCK WAS FOUND CONTINUE TEST 


SEQ 0337 


N10 
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MARDUARD TEST SECTION SEQ 0338 
16637 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
et 3 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (79) 
16640 ; 7979 begin 
16641 ; 7980 CLR_MBUS; 
16642 ; 7981 BAl = ONE; 
16643 ; 7982 ECC_DIS = ONE; ‘DISABLE ECC 
16644 ; 7983 10_BuF = ZEROES; 'FIRST BLOCK IN CHUNCK GETS ZEROES 
16645 ; 7984 MLBA = .DSA_ADRS; 'LOAD DSA 
16646 ; 7985 MLWC = not 255; 'LOAD WORD COUNT 
16647 ; 7986 MLBA = I0_BUF; 'LOAD UBUS ADRS 
16648 ; 7987 ML_FUNC = write; 'DO A WRITE FUNCTION 
16649 ; 7988 
16650 ; 7989 do ‘DELAY UNTIL XFER TO COMPLETE 
16651 ; 7990 0 
16652 ; 7991 until .DRY IS_SET; 
16653 ; 7992 . 
16654 ; 7993 CLR_MBUS; 
16655 ; 7994 BAI~= ONE; 
16656 ; 7995 10 BUF = ONES; 'READ REMAINING BLOCKS FOR ONES 
16657 ;: 7996 ECT_DIS = ONE; 
16658 ; 7997 MLDA = .DSA ADRS + 1; 'LOAD DSA WITH NEXT DSA INCREMENT 
16659 ; 7998 MLBA = 10_B0F; 'LOAD UBUS ADRS 
16660 ; 7999 MLWC = .W-C SIZE + 256; 'LOAD WORD COUNT WITH LESS ONE BLOCK 
16661 ; 8000 ML_FUNC = WRT_CHK; 'DO A WRITE CHECK FUNCTION 
16662 ; 8001 
16663 ; 8002 do ‘DELAY UNTIL XFER TO COMPLETE 
16664 ; 8003 0 
16665 ; 8004 until .DRY IS_SET; 
6666 ; 8005 
16667 ; 8006 if .WCE IS_SET ‘WERE ANY BITS DISTURBED 
16668 ; 8007 then 
16069 ; 8008 begin ‘ERROR IF WRITE CHECK FOUND BAD DATA 
16670 ; 8009 ERRDF (112, ASYNC, 0); 
16671 ; 8010 PRINTB (FOR_FMT, FNC_17, WRD_5O, WRD 60, WRD_14); 
16672 ; 8011 PRINTB (FMT~9, (.MLDA - 1)); 
16673 ; 8012 DODU (.ML _LON); 
16674 ; 8013 DOCLN; 
16675 ; 8014 end; 
16676 ; 8015 
16677 ; 8016 end; 
16678 ; 8017 
ser r} 8018 ENDTST; 
16687 057672 004167 124110 $137: JSR R1,$SAVE2 ; 7873 
16688 057676 005001 CLR R1 : DSA.ADRS 7918 
16689 057700 166701 131762 SUB RAS.INC,R1 : *,DSA.ADRS 7919 


16690 057704 012767 177777 130430 MOV #-1,10.BUF 


CZMLAAO ML-11 LOGIC TEST 


| 
| 
'HARDWARD TEST SECTION 
| 


fe 
16695 057712 
16696 057720 


16704 057772 
16705 057774 
16706 060002 


— —> 
SSRaG 
MOOT 

—ANNIN 
ANO™N 
“~Ne 


SSsourwoe 
CESyue 
MMRNO 
unnn 
SAN NNN 
WANNA 


MMNONGA—Tw 
~o 
~ 
~ 


om -=000 
Ouro o= 


000010 
00 


131756 
100000 
131654 


131704 
100000 
000001 
000040 


000001 
002000 
002000 


006454 


000006 


007162 
006740 
005774 


—_— a. 
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131646 


131630 
131616 
131670 
131604 
131574 


7ML4 


1$: 


2$: 


3$: 


4$: 


5$: 


6$: 


#10,aML.REG+40 
Oe ag shes 


INC, R1 
W.C. SIZE ,aML.REG*+10 


#61,aML.REG 
QML .REG+50 


2$ 
#100000 ,aML.REG 
4$ 


W.C.SIZE ,@ML.REG+10 
crore geecan eee 


ere 
#100009, aML.REG 
4$ 

o- 
#40, QML .REG+40 


RO,#1 

6$ 

+ ‘elastin 
#2000, aML.REG+50 
7$ 


55 
157 
INTER 


0 
#WRD.56,-(SP) 


#FNC.13,-(SP) 
#FIV.FAT,-(SP) 
I Nahe 


1 

#FNC.15, (SP) 
#PHR.10,-(SP) 
#WRD.14,-(SP) 


* ,DSA.ADRS 


DSA.ADRS,* 


DSA.ADRS,* 


«,FND.GD.CHK 


> FND.GD.CHK,* 


$?,* 


22-0c t-198 
22-0c t-198 


0 10 
0 10 


SEQ 0339 


47:44 
7:45:32 


7974 


‘CIMLAAO ML=11 LOGI 
HARDWARD TEST SECT 


16802 060564 


ON 


ty tet wih ty o 47 8 
~ 
~ 
~ 


oO-O 2] |] 400 o 4 4 4 OO0C0O—-— 
2 INS Fo 

ONO 

yNnNnNn~N 

NNOO 

SNOT 


egeeess 
~ ow 
nm 
~ 
™N~ 


C TEST 
l 


005366 
000004 


131704 


000026 
000040 


000061 
131344 


000040 
131550 


000002 


131240 


131216 
040000 


005774 
006510 
006400 


131436 


131420 


131406 
131460 


131324 


131306 
131274 


127670 
131340 


131222 


sML4 


7$: 


8$: 


9$: 


: 1 
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#THR.FMT,-(SP) 
#4 ,-(SP) 
SP 


#2, “ML. -REG+120 


10.BU 

R1,aML .REG+30 
#-400,aML.REG+10 
#10. BUF ,aML.REG+20 
#77,aML.REG 
#61,aML.REG 
aati 


$ 
#40,aML.REG+40 
ML. R 


R2.aML .REG+40 
id, am. REG+40 


,10.BUF 
12. AML .REG+120 
RI RZ 
nf @ML .REG+30 

#10. BUF. aML .REG+20 
W.C. R2 


om “REG+50 
#40000 ,aML .REG+40 


SP,* 


DSA.ADRS,* 


; DSA.ADRS,* 


22-0 t-1980 
22-0 t-1980 


10:4 
10:4 


SEQ 0340 


47:4 
45: 32 


TOPS 
PA:< 


nse 


CZMLAAO ML-11 
HARDWARD TEST 


16804 
16805 
16806 
16807 060570 


069662 


& 


L 
$ 


nn 


000207 


004767 


000207 


8019 


ML4 
007206 MOV #FNC.17,-(SP) 
005400 MOV #FOR.FMT,-(SP) 
000005 MOV #5,-(SP) 
MOV SP,RO 
TRAP 14 
131114 MOV QML .REG*30, (SP) 
DEC (SP) 
004602 MOV #FMT.9,-(SP) 
000002 MOV #2,-(SP) 
MOV SP,RO 
TRAP 14 
131330 MOV ML.LUN,RO 
TRAP 51 
TRAP 44 
000020 ADD #20,SP 
10$: RTS 
; Routine Size: 247 words. , 
; Maximum stack depth per invocation: 
137:: 
177016 1$: JSR PC,$137 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 
; Routine Size: 6 words 


; Maximum stack 


! <BLF /PAGE> 


depth per invocation: 


14 words 


0 words 


. SP,* 


; SP,« 


22-Oct-19 
22-Oct-19 


oo 


SEQ 0341 


TOPS 
PA:< 


8011 


8012 


8008 
7873 


8016 


11 
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HARDWARD TEST SECTION SEQ 0342 


16856 ;ML4 22-0 44 TOPS=20 Bliss-16 V2(206) 
16857 ; 22-0 :32 PA:<NEALE>BL2ML4.BL1.2 (80) 


aq 


8020 ! 
8021 BGNTST; 


8023 !++ 
8024 ; TEST NUMBER: TST 38 


! TEST NAME: NIBBLE OFFSET TEST 

TEST DESCRIPTION: 
TEST NIBBLE OFFSET COUNTERS TO OFFSET GOOD NIBBLE DATA A MAX 
OF 14 WORDS ON DETECTION OF ALL BAD NIBBLES BY: 


1. LOADING FIRST 2 1/4 WORDS OF THE IO_BUF WITH ZEROES AND THE 
REMAINING OF BUFFER WITH ONES. 


2. VIA DAT_DM MODE WRITE THE GOOD BLOCK WITH BACKGROUND 
ON ONES. 


3. VIA PROM R/W MODE FORCE ALL ARRAY NIBBLES BAD. 
4. VIA A MBUS WRITE FUNCTION LOAD IO_BUF INTO THE GOOD BLOCK. 


5. VIA DAT_DM MODE READ FIRST 15 ARRAY WORDS FOR ZEROES AND THE 
REMAINING WORDS FOR ONES. 


opteoes a pes 
A BIT VECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND 
ACCESSED FROM. 


10_BUF 
A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE 


i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
8039 ! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
ie 


— — — — -_ 
oa oa aan o 
4 02 Co Co 4 
NIN 
oO NOw oO 
7 . — — . . >. = . = = . . — . . — . . . . - = . — o om 7 . . . — . . = . . — 7 7 . . 7 . a — . . . ~~ — 
coooco 
ooo 
WwW 
ono 


16891 8052 FUNCTIONS ARE FOUND. 

16892 8053 

16893 8054 

16894 8055 local 

16895 8056 DODU FG, ‘DROP UNIT FLAG 

16896 8057 TST BAT 'TEST PATTERN 

16897 8058 START, ‘STARTING WORD 

16898 8059 FINISH, ‘ENDING WORD 

16899 8060 ERR_FLG; ‘ERROR FLAG 

16900 8061 

16901 8062 BGNSUB; 

16902 8063 CLR_MBUS; 

16903 8064 DODOU_FLG = ZERO; 

16904 8065 

16905 8066 incr WD_CNT from 0 to 255 do ‘LOAD I0_BUF WITH ONES 
16906 8067 10_BuF C.WO_CNT) = ONES; 

16907 8068 

16908 8069 10 BUF (0) = ZEROES; ‘LOAD FIRST 2 1/4 WORDS WITH ZEROES 
16909 8070 10 BUF (1) = ZEROES: 

16910 8071 107BUF [2] = %0'177760'; 


F 11 


CZMLAAO ML=11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 339 

HARDWARD TEST SECTION SEQ 0343 
16912 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
16913 ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (80) 


ONES; ‘LOAD DATA DIAG REGISTERS WITH ONES 


8075 DAT_DM_ XFER (); 'SET UP A DATA DIAG MODE XFERR 
8076 MLCS1 = write; 'DO A WRITE XFERR 


8078 incr WD_CNT from 0 to 127 do 'LOAD BLOCK WITH BG PAT 


be 

8080 DELAY (ONE _US); 
8081 DAT_CLK = ONE; 
8082 end; 


: CLR_MBUS; 

; 8085 WRT_PD (ONES, 19); 'FORCE ALL NIBBLES BAD 

; 8086 PROM RW = ONE; 'SET PROM READ WRITE 
: 8087 GD_BLK_XFER (); ‘SET UP A GOOD BLOCK XFERR 

16931 ; 8088 MLCS1 = write; iWRITE ZEROES IN FIRST BLOCK WORD LOCATION 

; 8089 'OFFSETTING 14 NIBBLES WITH ZEROES ALSO. 
: 8091 do , ‘DELAY UNTIL XFER TO COMPLETE 
: 8093 until .DRY IS_SET; ; 

: 

| e 


8095 CLR_MBUS; 

8096 START = ZERO 'START AT THE FIRST BLOCK WORD 
8097 FINISH = 14; ‘END AT THE 14'°TH BLOCK WORD 

8098 TST_PAT = ZEROES; 'TEST FOR ZEROES IN FIRST 14 WORDS 
8099 DAT_DM_XFER (); ‘SET UP A DATA DIAG MODE XFERR 
8100 MLCS1 = read; 'DO A READ FUNCTION 

8101 DELAY (ONE_US); 


8103 incr TWICE from 0 to 1 do 'READ WORDS 0-14 FOR O'S AND 15-126 FOR 1°S 
8104 begin 


incr WRD_CNT from .START to .FINISH do 'READ BLOCK WORDS FORM START TO FINISH 


oo 


WR =O OODNOUEWNR—"OCOOnNOuM 


-MLPD; 'GET PROM DATA 

DAT_CLK = ONE; 'CLOCK OUT THE DATA WORD 
DELAY (ONE _US); 

RD_LNG_WRD; 'READ THE DATA DIAG REGISTERS 


incr NIB_PTR from 0 to 8 do ‘LOOK AT 9 NIBBLES 


4 -PD_TEMP C.NIB_PTR] IS_NOT_SET ‘FIND GOOD NIBBLES 
tren 


v 
o 
“4 
am 
= 
xv 

" 


begin 
TS?_LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG); ‘COMPARE NIBBLE WITH TST PAT 


A -ERR_FLG IS_SET ‘SEE IF COMPARE FOUND AN ERROR 
then 
‘ERROR AND SET DODU_FLG IF ERROR FLG SFT 


Od 0d Od Cd GD CD 00 GD OD Cd CD GD OD GD Od CD Co 09 CO 
ee ee at ot ot ot 
Romononm — — es OS SS OOO 


begin 
ERRDF (94, ARR_DAT, 0); 


CZ7MLAAO ML=-11 LOGIC TEST 


HARDWARD TEST SECTION 


16968 ;ML46 

16969 ; 

16970 

16971 ; 8124 
16972 : 8125 
16973 ; 8126 
16974 ; 8127 
16975 ; 8128 
16976 ; 8129 
16977 ; 8130 
16978 ; 8131 
16979 ; 8132 
16980 ; 8133 
16981 ; 8134 
16982 ; 8135 
16983 ; 8136 
16984 ; 8137 
16985 ; 8138 
16986 ; 8139 
16987 ; 8140 
16988 ; 8141 
16989 ; 8142 
16990 ; 8143 
16991 ; 8144 
16992 ; 8145 
16993 ; 8146 
16994 ; 8147 
16998 

17002 060664 004167 
17003 060670 162706 
17004 060674 104402 
17005 060676 152777 
17006 060704 016704 
17007 060710 042704 
17008 060714 142777 
17009 060722 150477 
17010 060726 005066 
17011 060732 005002 
17012 0607 010203 
17013 0607 006303 
17014 060740 012763 
17015 060746 005202 
17016 060750 020227 
17017 060754 003767 
17018 060756 005067 
17019 060762 005067 
17020 0607 012767 
17021 060774 012777 
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end; 


TST_PAT = 
START = 


ENDSUB; 


PRINTB (THR_FMT, WRD_41, 
PRINTB (FM1_6, .NIB_PTR); 


DODU_FLG = ONE; 


end; 


end; 


if .DODU_FLG IS_SET 
then 


a 
DODU (.ML_LUN); 
DOCLN; 


end; 


ENDTST; 


123170 
000012 


000040 


000004 


177777 
000377 
127360 


177777 


131034 


131016 


010342 


352 
006 


—~— 
IwEM 
—N 


$738: 
1$: 


23: 


not .TST_PAT; 


1 
FINISH = 126; 
end 


R1,$SAVE5 
#i2,sP 


#40, @ML.REG*+40 
ML .DUT,R4 
#177776, R4 

#7 QML .REG+40 
RG. aML .REG+40 
4(§P) 


R 

R2,R3 

R3 

#-1,10.BUF (R3) 
R2 

R2,4377 

23 

10. BUF 
10.BUF +2 
#-20,10.BUF +4 
#-1,aML.REG*+170 


22-0ct-1980 10:47:44 
22-0¢t-1980 10:45:32 


WRD_46, WRD_10); 


!NOW oye ONES 


'START A 
‘END AT 126 


!DROP THIS UNIT 


IF DODU_FLG SET 


; DODU.FLG 
WD.CNT 
; WO.CNT,* 


; WO.CNT 
; WO.CNT,* 


TOPS=20 Bliss-16 v2(206) 
PA: <NEALE>BL2ML4.BLI.2 (80) 


SEQ 0344 


CZMLAAO ML=11 L 

HARDWARD TEST S 
17023 
17024 
17025 
17026 061002 
17027 061910 
17028 061016 
17029 061022 
17030 061030 
17031 061032 
17032 061036 
17033 061040 
17034 061044 
17035 061046 
17036 061052 
17037 061054 
17038 061056 
17039 061060 
17040 061062 
17041 061070 
17042 061072 
17043 061076 
17044 061100 
17045 061106 
17046 061112 
17047 061116 
17048 061124 
17049 061130 
17050 061134 
17051 061140 
17052 061144 
17053 061152 
17054 061156 
17055 061164 
17056 061170 
17057 061172 
17058 061200 
17059 061204 
17060 061210 
17061 061216 
17062 061222 
17063 061226 
17064 061234 
17065 061236 
17066 061242 
17067 061250 
17068 061254 
17069 061256 
17070 061262 
17071 061264 
17072 061270 
17073 001272 
17074 061274 
17075 061276 
17076 061300 


0 
E 


ag 


C TEST 
I 


016601 


177777 
17777? 
131604 
000061 
000001 
121052 


000010 


000020 
000177 
000040 


130560 
000040 


000016 
131364 
000071 
000001 
120634 


000014 


000006 


H 11 
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130730 


130632 


130614 


130646 
130514 


130540 


130522 


000004 


130430 


sML4 


8$: 


#-1,aML.REG*200 
#-1, QML .REG+160 
PC,DAT.OM.XFER 
#61, QML .REG 


4$ 

+ eae cecal 
R1,#177 

3$ 


#40, aML.REG+40 
ML .DUT,R4 
#177770, R4 

#7 ,aML .REG*40 
R4aML .REG+40 
#-1,-(SP) 
#23,-(SP) 

PC ,WRT.PD 
#100, aML .REG+120 
PC,GD.BLK.XFER 
#61, aML.REG 
ML .REG*+50 


8$ 

#40, aML.REG+40 
ML.DUTR4 
#177770,R4 

#7 AML .REG+40 
R4 AML .REG+40 


6(SP 
#16,4(SP) 
R5 


PC ,DAT.OM.XFER 
#71,aML.REG 


R 
6(SP),R1 


; WD.CNT 
3; *, SSTMP2 


* ,SSTMP1 


$STMP 
$STMP1 


$STMP2 


+ WD.CNT 
: WD.CNT,* 


START 
*, FINISH 
TST.PAT 


* ,SSTMP2 


; *, SSTMP1 


; SSTMP 
; SSTMP1 


; SSTMP2 


TWICE 
START ,WRD.CNT 


22-0c t-1980 
22°0¢ t- 1980 


10: 
10: 


2:45:32 


SEQ 0345 
47:44 


8081 
8078 
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CZMLAAO ML-11 LOGIC T 
HARDWARD TEST SECTION SEQ 0346 
17079 SML4 22-Oct-1980 10:47:44 TOPS 
\rpay : 22-0¢t-1980 10:45:32 PA:< 
17082 061306 005301 DEC R1 : WRD.CNT 
| 17083 061310 000534 BR 22% 
17084 061312 017767 130612 130342 148: MOV QML .REG*+230,PD. TEMP : 8108 
| 17085 061320 152777 000020 130472 BISB #20,aML.REG+120 : 8109 
7086 061326 012702 000001 MOV #1,R2 : #,$$TMP2 8110 
087 061332 001411 15$ BEQ 18$ 
061334 016703 120556 MOV LSDLY,R3 : ©, SSTMP1 
17089 061340 001404 BEQ 17$ 
| 090 061342 005066 000014 16$: CLR 14 (SP) : $$TMP 
17091 061346 005303 DEC R3 + $$TMP1 
17092 061350 001374 BNE 16$ 
17093 061352 005302 17$: DEC R2 : $$TMP2 
17094 061354 000766 BR 15$ 
17095 061356 017767 130506 126330 18%: MOV QML .REG+170,D1. TEMP 
17096 061364 017767 130510 126324 MOV @ML .REG+200,02. TEMP 
17097 061372 017767 130462 126320 MOV aML .REG*+160.E2. TEMP 
17098 061400 005002 CLR R2 ; NIB.PTR 8113 
17099 061402 010203 19$: MOV R2,R3 : NIB.PTR,* 8115 
17100 061404 006203 ASR R3 
17101 061406 006203 ASR R3 
17102 061410 006203 ASR R3 
17103 061412 062703 011662 ADD #PD.TEMP,R3 
17104 061416 010346 MOV R3,-(SP) 
17105 061420 010246 MOV R2.-(SP) : NIB.PTR,* 
17106 061422 042716 177770 BIC #177770, (SP) 
17107 061426 012746 000001 MOV #1,-(SP5 
17108 061432 005046 CLR -(§P) 
17109 061434 004767 121442 JSR PC ,BL$GT2 
17110 061440 062706 000010 ADD #10,SP 
17111 061444 005700 TST R 
17112 061446 001051 BNE 21$ 
17113 061450 010246 MOV R2,-(SP) : NIB.PTR,* 8118 
17114 061452 010546 MOV R5.-(SP) > TST.PAT.* 
17115 061454 012746 000020 MOV #26,-(SP) 
17116 061460 060616 ADD SP, (SP) : ERR.FLG.* 
17117 061462 004767 131172 JSR PC.TST.LNG.WRD 
17118 061466 026627 000020 000001 CMP 20(SP) #1 : ERR.FLG,* 8120 
17119 061474 001034 BNE 208 
17120 061476 104455 TRAP ‘55 : 8123 
17121 061500 000136 .WORD 136 
17122 061502 007534 “WORD ARR.DAT 
17123 061504 000000 “WORD 0 
17124 061506 012746 005740 MOV #WRD.10,-(SP) : 8124 
17125 061512 012746 006336 MOV #WRD.46,-(SP) 
17126 061516 012746 006264 MOV #WRD.41,-(SP) 
17127 061522 012746 005366 MOV #THR.FMT,-(SP) 
17128 061526 012746 000004 MOV #4,-(SP) 
17129 061532 010600 MOV SP,RO : SP,* 
17130 061534 104414 TRAP 14 
17131 061536 010216 MOV R2, (SP) : NIB.PTR,* 8125 
17132 061540 012746 004470 MOV #FMT.6,-(SP) 
17133 061544 012746 000002 MOV #2,-(SP) 


CZMLAAO ML=11 L 
HARDWARD TEST S$ 


17135 061550 
17136 061552 


—_ 
SEO 
Nowe 


22 So 
SAAOAAAASAAOCOW 
OOM OWVLNOLSNOLS 


—— 

AARON 
.w 0 ae e e 
OOfern 


DP APPA ASIN ES BB EEE EA 
—_— 
oa 
uw 
= 


OWNAVEWN $C OONOUEFWN—O0O@ 
FRESESSSEEEESSSSSSSESSSS SEES 


1664 
1672 


kt a at at St ot tt ot 
NNN NN NN NON NNN SS NN SEN NANI NNN NS NNN SIS NSIS SN NN SNS NN SSS 
ee ee ee a ed td ot od ot at tt 


0 
E 


062706 
000207 


004767 


000207 


000001 


000010 
000004 
900017 


000176 
000001 


177020 
000004 
130276 


000012 


176756 
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000034 


rr 
—O 
nw 


000006 
000004 


000001 23%: 


248: 


; Routine Size: 
; Maximum stack 


—_ 4 


SP ,RO 

14 
#1,34(SP) 
#16,SP 


#17,6(SP) 
#176,4(SP) 
R4 


R4,#) 
13$ 
peers 


263 words 


depth per invocation: 


SP,* 
*,DODU.FLG 
NIB.PTR 
NIB.PTR,* 


WRD.CNT 
WRD.C 


TST.PAT 


TWICE,* 


DODU.FLG,* 


N 
NT,FINISH 


SEQ 0347 


8145 


CZMLAAO ML-11 LOG 


K 11 
LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 344 
HARDWARD TEST SECTI 


ON SEQ 0348 


17197 5; ML4 22-Oct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
FA : 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (81) 
7194 ; 

7195 BGNTST; 

7196 

7197 ‘+4 

Aba TEST NUMBER: TST 39 

rg00 TEST NAME: CS1 FUNCTION ABORT TEST 

7202 TEST DESCRIPTION: 

te TEST CS1 FUNCTION ABORTS ON DETECTION OF CLASS ‘A’ & ‘B' ERRORS BY: 

7 1. VIA_MBUS WRITE FUNCTION LOAD THE GOOD BLOCK WITH BACKGROUND 


mr 


PATTERN OF ONES. 
2. CLEAR THE I10_BUF 


i 

i 

i 

i 

' 

3. DO A MBUS READ FUNCTION. WHILE THE READ IS IN PROGRESS WRITE TO 
; MLDA (CLASS "A ERROR) READ THE IO_BUF FOR ONES. 
; 

; 

) 

; 

' 

‘ 

a 


4. CLEAR THE I0_BUF 


5. VIA PROM R/W MODE FORCE UV ERROR TO THE UV ADRS ERROR PROM 
(CLASS 'B* ERROR). DO A MBUS READ. 


6. READ 10_BUF FOR ZEROES 
IMPLICIT. INPUTS: 


10_BU 
A VECTOR OF 256 WORDS WHERE DATA FUR MBUS READS AND 
WRITE FUNCTION ARE FOUND. 


CO OD OD SI NN NN SNS NNR SAA AAA AAA MMAMNMAMMNMNI 


ad ad cad ed ad ed ee ed Deed ad a od eo od od od ed ae od eo eh od ee do oe ad od ah ad ad ob eo od a eth oh ae ch ob eo ae ee ed eh ec eh ea ed 
SOW NON EWP 0 ODM NOU EWR SO OD NOAA UEWID 3 0 ODNOAMU EWN $$ O ODNAUEF WN OO 


CLR_MBUS; 
7 BAI = ONE; 'SET ON FIRST 10 BUF ADRS 
8 83 10_BUF = ONES; 'LOAD FIRST 10_B0F ADRS 
9 84 GD BLK_XFER (); 'SET UP A GOOD BLOCK XFERR 
0 $ MLUS1 = write; ‘WRITE BACKGROUND PATTERN 
4 do . ‘DELAY UNTIL XFER TO COMPLETE 
‘ . until .DRY IS_SET; 
36 91 incr TWICE from 0 to 1 do 'FORCE CLASS ‘A* AND CLASS ‘8° ERRORS 
37 9 egin 
38 9 BGNSUB; 
39 9 CLR_MBUS; 
40 9 
7241 9 incr CNT from 0 to 255 do 
eee : 10_8UF C.CNT) = ZEROES; ‘CLEAR OUT 10_BuF 
17244 9 if . TWICE eql 1 '1F 2ND PASS THEN FORCE ‘B* ERROR 
17245 20: then 


‘CZMLAAO ML-11 LOGIC TEST 

|HARDWARD TEST SECTION 

| 17247 ;ML4 

| 17248 ; 

| 17249 
17250 ; 8201 
17251 ; 8202 
17252 ; 8203 
17253 ; 8204 
17254 ; 8205 
17255 ; 8206 
17256 ; 8207 
17257 ; 8208 
17258 ; 8209 
17259 ; 8210 
17260 ; 8211 
17261 ; 8212 
17262 ; 8213 
17263 : 8214 
17264 ; 8215 
17265 ; 8216 
17266 ; 8217 
17267 ; 8218 
17268 ; 8219 
17269 ; 8220 
17270 ; 8221 
17271 ;: 8222 
17272 ; 8223 
17273 ; 8224 
17274 ; 8225 
17275 ; 8226 
17276 ; 8227 
17277 ; 8228 
17278 ; 8229 
17279 ; 8230 
17280 ; 8231 
17281 ; 8232 
17282 ; 8233 
17283 ; 8234 
17284 ; 8235 
17285 ; 8236 
17286 ; 8237 
17287 ; 8238 
17288 ; 8239 
17289 ; 8240 
17290 ; 8241 
17291 ; 8242 
17292 ; 8243 
17293 : 8244 
17294 ; 8245 
17295 ; 8246 
17296 ; 8247 
17297 ; 8248 
17298 ;: 8249 
17299 ; 8250 
17300 ; 8251 
17301 ; 8252 


ee ae 


MACRO M1113 23-OCT-80 09:11 


GD_BLK_XFER (); 


MLCS1 
- TWICE eql 0 then MLDA = ONES; 


if 
do 


0 
until 


if 
th 


else 


if 
th 


= read; 


DRY IS_SET; 


- TWICE eql 0 
en 


begin 


incr WRD_CNT from 0 to 64 do 
begin 


pact S45" 


ae -1O0_BUF C.WRD_CNT] neq ONES 
t 


PROF (95, SYNC, 


0); 
PRINTB (FOR. FMT, PHR 8, 


FNC_13, 


FNC_13, 


exitloop; 
end; 
end; 
end 
begin 
incr WRD_CNT from 0 to 64 do 
begin 
~ oe -10_BUF C.WRD_°NT] neq ZEROES 
t 
pt eg (96, SYNC, 0); 
PRINTB (FOR. FMT, PHR 9, 
exitloop 
end; 
end; 
end; 


SC IS_NOT_SET 
en 


22-0ct-1 
22-0ct-1 


“oo 
ooo 
——2 
oo 
ne 
wI~n 


oo 
ws 
NS 


'SET UP A GOOD BLOCK XFERR 
!DO A READ FUNCTION 


'IF FIRST PASS THEN FORCE AN ‘A ERROR 
'DELAY UNTIL XFER TO COMPLETE 


'SEE WHICH PASS WE'RE ON 
'CLASS ‘A’ ERROR 
'SEE IF XFERR WAY ALLOWED TO CONTINUE 


'READ IO_BUF FOR BG PAT 
'ERROR AND EXIT LOOP IF ZEROES 
WRD_19, WRD_10); 


!CLASS 'B’ ERROR 
'SEE IF XFERR WAS ABORTED 


‘READ 10_BUF CLEARED DATA 
‘ERROR IF ONES AND EXIT LOOP 
WRD_19, WRD_10); 


'SEE IF SC BIT SET 


TOPS=20 Bliss=-16 V2(206) 
PA:<NEALE>BL2ML4.BL1.2 (81) 


SEQ 0349 


rf —- 


'CZMLAAO ML-11 
HARDWARD TEST 


7ML4 


L 
$ 


0G 
EC 


TE 


I 
TION 


i "11 
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begin 

ERRDF (104, SYNC, 0); 

——s (FIV_FMT, WRD_59, PHR_1, WRD_11, 
end; 


ENDSUB; 
end; 

ENDTST; 
122100 $139: JSR R1,$SAVE3 
000040 130010 BISB #40,aML.REG+40 
130234 MOV UT.R3 
177770 BIC #177776,R3 
000007 127772 BICB =: #7, AML. REG+40 
127766 BISB  R3,aML.REG+40 
000010 127760 BISB #10,aML.REG+40 
177777 | 126354 MOV #-1.10.BUF 
130550 JSR PC,GD.BLK.XFER 
000061 127700 MOV #61,aML.REG 
127744 1$: TSTB = @ML.REG*+50 

BPL 1$ 

CLR R3 

2$: TRAP 2 

000040 127720 BISB #40,aML.REG+40 
130144 MOV ML.OUT,R2 
177770 BIC #177770,R2 
000007 127702 BICB = #7, AML. REG+40 
127676 BISB R2,aML.REG+40 

CLR R 

3$: MOV RO,R1 

ASL R1 
010342 CLR 10. BUF (R1) 

INC R 
000377 CMP RO, #377 

BLE 3$ 
000001 CMP R3,41 

BNE 4$ 
000100 127720 BISB #100,aML.REG+120 
000777 130022: MOV #777 .aML .REG+2 30 
130430 4$: JSR PC,GD.BLK.XFER 
000071 127560 MOV #71, aML.REG 

CLR R2 

TST R3 

BNE 5$ 


22-0ct-1980 10:47 
22-Oct-1980 10:45 


‘ERROR IF NOT SET 
WRD_19, FNC_13) 


244 
:32 


TOPS=20 Bliss-16 v2(2 
PA:<NEALE>BL2ML4.BLI. 


[TWICE 


; CNT 


Be Be Be Be Be oe 


CNT,* 
CNT 
CNT,* 
TWICE,* 


TWICE 


06 
2 


) 
(81) 


SEQ 0350 


N 11 
CZMLAAO ML-11 LOG EST MACRO M1113 23-OCT-80 09:11 PAGE 347 


Ic 1 
INARDUARD TEST SECTION SEQ 0351 

17358 7MLG 22-0ct-1980 10:47:44 TOPS 
e324 : 22-0ct-1980 10:45:32 PA:< 
17361 062126 005202 INC R2 
17362 062130 012777 177777 127572 MOV #-1 “an REG*+30 
17363 062136 105777 127606 5$: TSTB aM .REG+50 : 8213 
17364 062142 100375 BPL as 
17365 062144 006002 ROR R2 : 8215 
17366 062146 103037 BCC 8$ 
17367 062150 005002 CLR R2 : WRD.CNT 8219 
17368 062152 010201 6$: MOV R2,R1 ; WRD.CNT,* 8222 
17369 062154 006301 ASL R1 
17370 062156 026127 010342 177777 CMP 10.BUF(R1),a-1 
17371 062164 001423 BEQ 7$ 
17372 062166 : 104455 TRAP 55 : 8225 
17373 062170 000137 WORD 137 
17374 062172 007500 WORD SYNC 
17375 062174 000000 .WORD 0 
17376 062176 012746 005740 MOV #WRD.10,-(SP) ; 8226 
17377 062202 012746 006040 MOV #WRD.19,-(SP) 
17378 062206 012746 007136 MOV #FNC.13,-(SP) 
17379 062212 012746 006714 MOV #PHR.B,-(SP) 
17 2216 012746 005400 MOV #FOR. FAT, -(SP) 
17381 062222 012746 000005 MOV #5,-(SP) 
17382 062226 010600 MOV P-RO : 3P,* 
17383 062230 104414 TRAP 1 
17384 062232 000435 BR 10$ ; 8227 
1738 22 005202 7$: INC R2 : WRD.CNT 8219 
17386 062236 020227 000100 CMP R2,#100 ; WRD.CNT,* 
17387 062242 003743 BLE 6$ 
17388 062244 000437 GR 12$ ; 8215 
17389 062246 005002 8$: CLR R2 > WRD.CNT 8236 
17390 062250 010201 9$: MOV R2,R1 ; WRD.CNT,* 8239 
17391 062252 006301 ASL R 
17392 062254 005761 010342 TST 10.BUF (R1) 
17393 062260 001425 BEQ 11$ 
17394 062262 104455 TRAP 5 8242 
17395 062264 000140 WORD 140 
173 22 007500 WORD SYNC 
17397 062270 000000 -WORD 0 
17398 062272 012746 005740 _ MOV #WRD.10,-(SP) 8243 
17399 062276 012746 006040 MOV #WRD.19,-(SP) 
17400 062302 2746 00 MOV #FNC.13,-(SP) 
17401 062306 012746 006726 MOV #PHR.9,-(SP) 
17402 062312 012746 005400 MOV #FOR.FMT,-(SP) 
17403 062316 012746 000005 “MOV #5,-(SP) 
17404 062322 010600 MOV SP-RO : SP,* 
17405 062324 104414 TRAP 14 
17406 062326 062706 000014 108: ADD #14,SP ; 8244 
17407 062332 000404 BR 128 
17408 062334 005202 11$: INC R2 : WRD.CNT 8236 
17409 062336 020227 000100 CMP R2,#100 ; WRD.CNT,* 
17410 062342 003742 BLE $ 
17411 062344 032777 100000 127326 12%: BIT #100000, aML .REG ; 8251 
17412 062352 001026 BNE 13$ 


c------- - 


CIMLAAO ML-11 L 
[WARDWARD TEST $ 
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| 
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| 
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SRESTSESE 
3 


06 
7 069450 
38 062452 


dale ll el ee 
~o 
Nm 
= 
Nm 
~ 


MEE Prw 
NOOO” 


et et ak es st a a oo to oo a 
“NaN 
= 


7455 062454 


17460 062466 


-- 

SS3e 
MMMRMMRNNO~N 

AnNNOMUS & 

, a wie 

on ou" 


ANN 
ssss 
Ano 


—COoCooo°coo 


Oe oe oe oe 


> 
= 
= 
a 


000207 


004767 
104466 
006000 
103773 
000207 


007136 


000006 


000016 


177346 
000001 


177236 


7ML4 


; Routine Size: 
; Maximum stack 


T39:: 


1$: 


MACRO M1113 23-OCT-80 09:11 


PAGE Ba 


#FNC.13,-(SP) 
#WRD.19,-(SP) 


175 words 


depth per invocation: 11 words 


e SP,* 


; TWICE 
; TWICE,* 


SEQ 0352 


22-Oct-1980 10:47:44 
22-0ct-1980 10:45:32 


TOPS 
PA:< 


8254 


8255 


8255 
8256 


8191 


8147 


8259 
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CZMLAAO ML-11 LOGIC 
INARDUARD TEST SECTION SEQ 0353 
| 17466 ;ML4 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
17467 ; 2270ct-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (82) 


8263 | 
8265 BGNTST; 


8267 !4+4 
TEST NUMBER: TST 40 


TEST NAME: LAST BLOCK TRANSFER TEST 
TEST DESCRIPTION: 
TEST THE LAST BLOCK INDICATOR BIT 
FOR SETTING/NOT SETTING AND THE 
DSA REGISTER FOR INCREMENTING BY: 


1. DOING MBUS TRANSFERRS AT EACH 


17485 8279 BLOCK FROM BLOCK ZERO TO 
17486 8280 LAST BLOCK ~-i AND TEST LBT 
17487 8281 CLEAR AND DSA REGISTER TO BE 
17488 8282 INCREMENTED. 

17489 8283 

17490 


THE LAST BLOCK. 

TEST LBT TO ye SET AND 

TEST FOR CLEAR 

TEST DSA REG TO BE INCREMENTED. 


IMPLICIT INPUTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
8284 2. DOA MBUS TRANSFERR AT 
i 
i 
i 
i 
i 
; 10_BUF 
| A VECTOR OF 256 WORDS WHERE 
i 
i 
i 
i 
i 
le 


17499 8293 DATA FOR MBUS READS AND WRITE 

17500 8294 FUNCTION ARE FOUND. 

17501 8295 

17502 8296 A GLOBAL OWN LOCATION TO THIS TEST. 

17503 8297 

17504 ; 8298 

17505 ; 8299 

17506 ; 8300 

17507 8301 local 

17508 8302 DODU_FLG; ‘DROP UNIT FLAG 
17509 8303 

17510 8304 DODU_FLG = ZERO; 

17511 8305 

17512 8306 incr DSA_CNT from 0 to .LST_BLK - 1 do 'DO XFERRS UP TO THE LAST BLOCK 
17513 8307 egin 

17514 308 BGNSUB; 

17515 8309 CLR_MBUS; 

17516 8310 ECC"DIS = ONE; ‘DISABLE ECC 

17517 8311 MLWl = not 255; ‘LOAD WORD COUNT 
17518 8312 MLBA = 10 BUF; ‘LOAD UBUS ADRS 
17519 8313 MLDA = ta CNT; ‘LOAD DSA WITH DSA_CNT 
17520 8314 MLCS1 = write; 'DO A WRITE FUNCTION 


sss tse 
— 3) 2 3 — 
SANS ~“ 
St ee 
eeses 
Wr oO 

Be Se Be Be Se Be Be Be Se Se Se Se Be Be Ge Se Be Ge Se Se Be Ge Se Se Se Ge Ge Se Se Se Be Ge Ge Se Ge Se Se Ge Se Se Ge Se Ge Ge Se Se Ge Se Se Ge Se 

Go G9 Co CD CO 
Mmrnrnror 
NINN NN 
ONO 


0.12 
TEST MACRO M1113 23-OCT-80 09:11 PAGE 350 
ON SEQ 0354 


44 TOPS=20 Bliss-16 V2(206) 
32 PA:<NEALE>BL2ML4.BL1.2 (82) 


CZMLAAO ML=11 L 
HARDWARD TEST S$ 


sML4 22-Oct-1980 10:47: 
; 22-Oct-1980 10:45: 


OGIC 
ECTI 


— 
~ 
uw 
~N 
Nm 


do ‘DELAY UNTIL XFER TO COMPLETE 

wait DRY 1S_SET; 

if .LBT IS_SET ‘SEE IF THE LAST BLOCK XFERR BIT SET 
ae 'ERROR AND SET DODU_FLG IF SET 


WWAWWNrnrrnr 
WN CO OONOUE WwW 


soa’? 

ERRDF (97, ASYNC, 0); 

PRINTB (THR_ FMT, WRD_27, PHR_5, WRD_29); 
PRINTB (FMT_7, “DSA. tNTS; 

DODU_FLG = ONE; 

end; 


+4 if .MLDA neq .DSA_CNT + 1 'SEE IF THE DSA REG INCREMENTED 
— 


NNN NNN NS NN NN NSS 
LUPUS SVS SSIS SAAT 
MMMMNMMPWMRMwNN eS 


= 
oO 


| 4 
..% 
1 ; 
| 1 3 
1 ; 
1 ; 
1 ; 
1 3 
1 3 
1 ; 
1 ; 
1 ; 
1 ; 
1 5 
1 3 
1 ; 
: ; 
17541 ; 331 begin ‘ERROR AND SET DODU_FLG IF NOT 
17542 ; 332 ERRDF (98, ASYNC, 0); 
17543 ; 8333 PRINTB (THR_ FMT, REG_6, WRD_31, WRD_14); 
17544 ; 8334 PRINTB (FMT ue -DSA_TN T); 
17545 ; 8335 DODU_FLG = 
17546 ; 8336 end; 
17547 ; 8337 
17548 ; 8338 ENDSUB; 
17549 ; 8339 end; 
17550 ; 8340 
17551 ; 8341 BGNSUB; 
17552 ; 8342 CLR_MBUS; 
17553 ; 8343 ECC_DIS = ONE; ‘DISABLE ECC 
17554 ; 8344 LAST _BLK_XFER (); 'SET UP A LAST BLOCK XFERR 
17555 ; 8345 MLCST = write; 'DO A WRITE FUNCTION 
17556 ; 8346 
17557 ; 8347 do ‘DELAY UNTIL XFER TO COMPLETE 
17558 ; 8348 0 
17559 ; 8349 until .DRY IS_SET; 
17560 ; 8350 
17561 ; 8351 if .MLDA neq .LST_BLK + 1 'SEE IF DSA REGISTER INCREMENTED 
17562 ; 8352 mn, 
17563 ; 8353 begin ‘ERROR AND SET DODU_FLG IF NOT 
17564 ; 8354 ERRDF (101, ASYNC, 0); 
17565 ; 8355 PRINTB (THR_ FMT, REG 6 , 31, WRD_14); 
17566 ; 8356 PRINTB (FMT_7, -LST_ 
17567 ; 8357 DODU_FLG = ON NE; 
17568 ; 8358 end; 
17569 ; 8359 
17570 ; 8360 if .LBT IS_SET 'SEE IF LB? BIT SET 
17571 ; 8361 na 
17572 ; 8362 nous 
17573 ; 8363 MLDA = ONES; ‘IF SET THEN TRY TO CLEAR IT 
17574 ; 8364 
17575 ; 8365 if .LBT IS_SET 'SEE IF BIT CLEARED 
17576 ; 8366 then 


12 
CZMLAAO ML=11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 551 
HARDWARD TEST SECTION SEQ 0355 
17578 sML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
| thes ; 22-0¢t-1980 10:45:32 PA:<NEALE>BL2ML4.B8L1.2 (82) 
| 17581 ; 8367 begin ‘ERROR IF NOT 
17582 ;: 8368 ERRDF (99, ASYNC, 0); 
17583 ; 8369 PRINTB (FIV_FMT, WRD.27, PHR_2, WRD_11, WRD_17, REG_6); 
17584 ; 8370 DODU_FLG = ONE; 
17585 ; 8371 end; 
17586 ; 8372 
17587 ; 8373 end 
17588 ; 8374 else 'LBT NOT SET 
17589 ; 8375 be ‘ERROR AND SET DODU_FLG 
17590 ; 8376 ER OF (100, ASYNC, 0); 
17591 ; 8377 PRINTB (FOR_FMT, WRD_27, PHR_1, WRD_11, WRD_27); 
17592 : 8378 DODU_FLG = ONE; 
17593 ; 8379 end; 
1759 : 8380 
17595 : 8381 ENDSUB; 
17596 ; 8382 
17597 : 8383 if .DODU_FLG IS_SET 'DROP THIS UNIT IF DODU_FLG SET 
17598 ; 8384 th en 
17599 ; 8385 boas 
17600 ; 8386 DODU (.ML_LUN); 
17601 ; 8387 DOCLN; 
17602 ; 8388 end; 
17603 ; 8389 
HE » of 3 8390 ENDTST; 
17612 062470 004167 121344 $140: JSR R1,$SAVE4 : 8261 
17613 062474 005001 CLR R1 + DODU.FLG 8304 
17614 062476 016704 125632 MOV LST.BLK,R4 ; 8306 
17615 062502 005002 CLR R2 : DSA.CNT 
176016 062504 000541 BR 6$ 
17617 062506 010203 1$: MOV R2,R3 : DSA.CNT,* 8329 
17618 062510 005203 INC R3 
17619 062512 104402 2$: TRAP = 2 : 8307 
17620 062514 152777 000040 127216 BISB #40,aML.REG+40 : 8308 
17621 062522 016700 127442 MOV ML DUT, RO 
17622 062526 042700 177770 BIC #177776,R0 
17623 062532 142777 000007 127200 BICB =: #7, ML. REG+40 
17624 062540 150077 127174 BISB RO,aML.REG+40 
17625 062544 152777 000002 127246 BISB =: #2, AML. REG+120 ; 831 
17626 062552 012777 177400 127130 MOV #-400,aML.REG+10 ; 831 
17627 062560 012777 010342 127132 MOV #10.BUF ,aML.REG+20 : 831 
17628 062566 010277 127136 MOV R2,aML.REG* 30 > DSA.CNT,* 831 
17629 062572 012777 000061 127100 MOV #61,aML.REG : 831 
17630 062600 105777 127144 3$: TSTB = AML. REG*+50 ; 831 
17631 062604 100375 BPL 3$ 


CZMLAAO ML-11 
HARDWARD TEST 


~“ 

oa 

Ww 

~ 
Soe 
mror 

o 

—_ 
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~“ 

ae 
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g 
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o 
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< 3335 
Qui kwr 
e 
: 


SESE 
con 
SESEE 
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Orr 


PPP PPP PP 
uw 
o 

ofo 


ee te a dd td ot 8 St 
“ 


Ratatat 
~ 
—owo 
ttt 
MorMrnrnr 
Pe me! 
SEN 


67 66 
74 062770 


AARON 
~N 
DNASE w 
Nm 
~N 
~ 
= 


S 
<3 
& 
sees 


seeeescs 
Vw 
RESRSENS 


SESSESSE 


ao 
bt 


LOGIC 1 
SECTION 


032777 
001433 


150477 


EST 


002000 


006142 


000004 


004520 
000002 


000001 
000016 
127020 


005774 


000004 


004520 
000002 


000001 
000016 


000040 
127140 
177770 
000007 
126672 
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127134 


126714 


126676 


sAL4 


4$: 


5$: 


6$: 


#2000, aML .REG*50 
4% 


55 

141 

ASYNC 
#WRD.29,-<SP) 
#PHR.5,-(SP) 


#WRD.27,-(SP) 
#THR FMT ,-(SP) 
#4,-(SP) 


R2, (SP) 
#FMT.7,=(SP) 
#2,-(SP) 

SP ,RO 

14 


#1,R1 
#16,SP 
alee he 


WWRD.14,-(SP) 
#WRD.31,-(SP) 
#REG.6,-(SP) 
#THR FMT, -(SP) 
#4 ,-(SP) 

Coe 


2 
#40, aML .REG+40 
ML.DUT,R4 
#177776, R4 

#7, aM .REG*40 
R4.aML .REG*40 


SP,* 


; DSA.CNT,* 


ee 


SP,* 
* ,.DODU.FLG 


SP,* 


; DSA.CNT,* 


SP,* 
* ,DODU.FLG 


DSA.CNT 
DSA.CNI,* 


SEQ 0356 


22-0¢t-1980 10:47:44 
22-0ct-1980 10:45:32 


TOPS 
PA:< 


8320 
8325 


8324 


8325 


8334 
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CZMLAAO ML=11 LOGIC | 
HARDWARD TEST SECTION SEQ 0357 
17689 sML4 22-0ct-1980 10:47:44 TOPS 
4 pa ; 22-0¢t-1980 10:45:32 PA:< 
17692 063046 152777 000002 126744 BISB #2, @ML.REG*120 ; 8343 
17693 063054 004767 127514 JSR PC,LAST.BLK.XFER ; 8344 
| 17696 063060 012777 000061 126612 MOV #61, aML.REG ; 8345 
17695 063066 105777 126656 8S: 1TSTB = AML. REG #50 ; 8349 
| 17696 063072 100375 BPL mS 
176S7 063074 016702 125234 MOV LST.BLK,R2 : 8351 
17698 063100 005202 INC R 
699 063102 027702 126622 CMP AML .REG+30,R2 
700 063106 001434 BEQ 9$ 
17701 063110 104455 TRAP ‘555 8354 
17702 063112 000145 .WORD 145 
17703 063114 007444 .WORD ASYNC 
17704 063116 00 WORD 
17705 063120 012746 005774 MOV #WRD.14,-(SP) : 8355 
7706 063124 012746 006164 MOV #WRD.31,-(SP) 
17707 063130 012746 007342 MOV #REG.6,-(SP) 
17708 063134 012746 005366 MOV #THR FMT, -(SP) 
17709 063140 012746 000004 MOV #4 ,-(SP) 
17710 063144 010600 MOV SP RO : SP, 
17711 063146 104414 TRAP 3s «14 
17712 063150 016716 125160 MOV LST.BLK, (SP) : 8356 
17713 063154 012746 004520 MOV #FMT.7,-(SP) 
17714 063160 012746 000002 MOV #2,-(SP) 
17715 063164 010600 MOV SP RO : SP, 
17716 063166 104414 TRAP «1G 
17717 063170 012701 000001 MOV #1,R1 ; *,DODU.FLG 8357 
17718 063174 062706 000016 ADD #16,SP ; 8353 
17719 063200 032777 002000 126542 9$: BIT #2000, aML .REG+50 : 8360 
17720 063206 001440 BEQ 10$ 
17/21 063210 012777 177777 126512 MOV #-1,aML.REG+30 ; 8363 
17722 063216 032777 002000 126524 BIT #2000, aML.REG*+50 ; 8365 
17723 063224 001457 BEQ 11$ 
17726 063226 104455 TRAP ss 555 : 8368 
17725 063230 3 .WORD 143 
17726 063232 007444 .WORD  ASYNC 
17727 063234 000000 .WORD 0 
17728 063236 012746 007342 MOV #REG.6,-(SP) : 8369 
17729 063242 012746 006022 MOV #WRD.17,-(SP) 
17730 063246 012746 005750 MOV #wRD.11,-(SP) 
17731 063252 012746 006560 MOV #PHR.2,-(SP) 
17732 063256 012746 006134 MOV #WRD.27,-(SP) 
17733 063262 012746 005414 MOV #FIV.FMT,-(SP) 
17734 063266 012746 000006 MOV #6,-(SP) 
17735 063272 010600 MOV SP,RO : SP,* 
17736 063274 104414 TRAP 14 
17737 063276 012701 000001 MOV #1,R1 ; *,DODU.FLG 8370 
17738 063302 062706 000016 ADD #16,SP : 8367 
17739 063306 000426 BR 11$ ; 8360 
| 17760 063310 104455 108: TRAP 55 : 8376 
17741 063312 000144 .WORD 144 
| 17762 063314 007444 "WORD ASYNC 
| 17763 063316 000000 . WORD 


CZMLAAO ML=-11 LOGIC TEST 
HARDWARD TEST SECTION SEQ 0358 
17745 7ML4 22-0¢t-1980 10:47:44 TOPS 
ee ; 22-0¢t-1980 10:45:32 PA:< 
1774 
17748 063320 012746 006134 MOV #WRD.27,-(SP) 8377 
17749 063324 012746 005750 MOV #WRD.11,-(SP) 
17750 063330 012746 006542 MOV #PHR.1,-(SP) 
17751 063334 012746 006134 MOV #WRD.27,-(SP) 
17752 063340 012746 005400 MOV #FOR.FMT,-(SP) 
17753 063344 012746 000005 MOV #5,-(SP) 
| 17754 063350 010600 MOV SP,RO ; Pw 
| 17755 063352 104414 TRAP 14 
| 17756 063354 012701 000001 MOV ai Ri ; *,DODU.FLG 8378 
17757 063360 062706 000014 ADD #14,SP ; 8375 
17758 063364 104467 11$: TRAP 67 : 8379 
17759 063366 006000 ROR RO 
17760 063370 103611 BLO 7$ 
17761 063372 005301 DEC R1 ; DODU.FLG 8383 
17762 063374 001004 BNE 12% 
17763 063376 016700 126564 MOV Mi .LUN,RO 3 8386 
17764 063402 104451 TRAP 1 
17765 063404 104444 TRAP 44 
ne 063406 000207 12$: RTS PC ; 8261 
17768 ; Routine Size: 232 words 
17769 - Maximum stack depth per invocation: 12 words 
17774 
17775 
17779 
17783 063410 T40:: 
17784 063410 004767 177054 1$: JSR PC,$140 : 8388 
17785 063414 104466 TRAP 66 
17786 063416 006000 ROR RO 
17/87 063420 103773 BLO 1$ 
17788 063422 000207 RTS PC 
17789 
17790 ; Routine Size: 6 words 
17791 ; Maximum stack depth per invocation: 0 words 
17796 
17797 
17798 8391 '<BLF/PAGE> 
| 
| 
| 
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CZMLAAO ML=-11 LOGIC 1 
HARDWARD TEST SECTION SEQ 0359 
17800 ;ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
Ad ; 22-0¢t-1980 10:45:32 PA:<NEALE>BLZML4.BL1.2 (83) 
17803 ; 8392 =! 
17804 ; 8393 | 
17805 ; 8394 BGNTST; 
17806 ; 8395 
17807 ; 8396 '4+ 
17808 ; 8397 ' TEST NUMBER: TST 41 
17809 ; 8398 | 
17810 ; 8399 | TEST NAME: INVALID ADRS TEST 
17811 ; 8400 ! 
17812 ; 8401 | TEST DESCRIPTION: 
17813 ; 8402 ! 
17814 ; 8403! TEST THE DETECTION OF ILLEGAL DSA 
17815 ; 8404 | ADDRESSES BY: 
17816 ; 8405 
17817 ; 8406 | 1. DOING A MBUS WRITE FUNCTION 
17818 ; 8407! AT ALL POSSIBLE ILLEGAL DSA 
17819 ; 8408 ADDRESSES AND TEST THE 
17820 ; 8409! IAE BIT SET. 
17821 ; 8410 ! 
17822 : 8411 | IMPLICIT INPUTS: 
17823 ; 8412 | 
17824 ; 8413! 10_BUF 
17825 ; 8414! A VECTOR OF 256 WORDS WHERE 
17826 ; 8415! DATA FOR MBUS READS AND WRITE 
17827 ; 8416 | FUNCTION ARE FOUND. 
17828 ; 8417 
17829 ; 8418 | A GLOBAL om LOCATION TO 
17830 ; 8419 | THIS TEST 
17831 ; 8420 
17832 ; 8421 | 
17833 ; 8422 i- 
17834 ; 8423 
17835 ; 8424 iocal 
17836 ; 8425 IAE_CNT; 'INVLID ADRS COUNT 
17837 ; 8426 
17838 : 8427 IAE_CNT = .LST_BLK; ‘START AT LAST BLOCK + 1 
17839 ; 8428 
17840 ; 8429 do 'TEST FOR ALL INVALID ADDRESSES 
17841 ; 8430 begin 
17842 ; 8431 IAE_CNT = .JAE_CNT + 1; ‘INCREMENT IAE_CNT 
17843 ; 8432 BGNSUB; 
17844 ; 8433 CLR_MBUS; 
17845 ; 8434 MLDA = .IAE_CNT; 'LOAD DSA 
17846 ; 8435 MLWC = not 255; 'LOAD WORD COUNT 
17847 ; 8436 MLBA = 10_BUF; 'LOAD UBUS ADRS 
17848 ; 8437 MLCS1 = write; ‘DO A WRITE FUNCTION 
17849 ; 8438 
17850 ; 8439 if .IAE IS_NOT_SET 'SET IF LAE SET 
17851 ; 8440 then 
17852 ; 8441 begin ‘ERROR IF NOT SET 
17853 ; 8442 ERRDF (102, ASYNC, 0); 
17854 : 8443 PRINTB (FIV_FMT, WRD_30, PHR_1, WRD_11, WRD_30, WRD_10); 


coo 


7ML4 


33333333333 
SESSSSSESSS 
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CZMLAAO ML-11 LOGIC TEST 
HARDWARD TEST SECTION 


000207 


MACRO M1113 23-OCT-80 09:11 


end; 


ENDSUB; 


e 
untii 


124702 


000040 


002000 


005740 


000006 


000016 


177777 


126274 


126256 


126210 


126236 


$141: 


1$: 
2$: 


3$: 


nd 
-IAE_CNT eql %0'177777'; 
ENDTST; 
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'REPEAT UNTIL ALL 


R1,-(SP) 
LST.BLK,R1 
R1 


2 
#40, aml REG+40 
ML. UT RO 
Wz7776. RO 
#7,,AML.REG+40 


#-400,aML.REG+10 
#10. BUF aML .REG+20 
#61 ,aML.REG 

#2060, "ail. REG+60 


55 
146 
ASYNC 


0 
#WRD.10,-(SP) 
#WRD.30,-(SP) 
#WRD. 11, -(SP) 
#PHR.1,-(SP) 
#WRD.30,-(SP) 
#FIV.EMT,-(SP) 
#6,-(SP) 


1$ 
(SP)+,R1 
PC 


244 
:32 PA:<NEALE>BL2ML4.BL1.2 (83) 


TOPS-20 Bliss-16 V2(206) 


TESTED 


*, 1AE.CNT 
[AE .CNT 


IAE.CNT,* 


SP,* 


IAE.CNT,* 


SEQ 0360 


8441 
8444 


8448 
8390 


} 


CZMLAAO ML-11 LOG 
HARDWARD TEST SEC 


I 
TION 


C TEST 
I 


K 12 
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004767 177600 
104466 


000207 


8451 


' <BLF /PAGE> 


SEQ 0361 
3ML4 22-0ct-1980 10:47:44 TOPS 
3 22-0ct-1980 10:45:32 PA:< 
; Routine Size: 62 words 
; Maximum stack depth per invocation: 8 words 
T41:: 
1$: JSR PC,$T141 : 8448 

TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 


; Routine Size: 6 words ~ ‘ 
; Maximum stack depth per invocation: 0 words 


12 
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CZMLAAO ML=-11 LOGIC | 
‘HARDWARD TEST SECTION SEQ 0362 
| 17946 ;ML4 22-0¢t-1980 10:47:44 TOPS=-20 Bliss-16 V2(206) 
| 8 of 3 22-0¢t-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (84) 

17949 ; 8452 ! 

17950 ; 8453 BGNTST; 

17951 ; 8454 

17952 ; 8455 +4 

17953 ; 8456 ' TEST NUMBER: TST 42 

17954 ; 8457 | 

17955 ; 8458 | TEST NAME: ADRS OVERFLOW BIT TEST 

17956 ; 8459 

17957 ; 8460 | TEST DESCRIPTION: 

17958 ; 8461 |! TEST THE DETECTION OF ADDRESS OVERFLOWS BY: 

17959 ; 8462! 

17960 ; 8463! 1. STARTING AT THE LAST BLOCK DO A TWO BLOCK TRANSFER. 

17961 ; 8464 | 

17962 ; 8465! 2. READ THE AOE BIT SET. 

17963 ; 8466! 

17964 ; 8467 | IMPLICIT INPUTS: 

17965 ; 8468 | 10_BUF 

17966 ; 8469 |! A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE 

17967 ; 8470 | FUNCTIONS ARE FOUND. 

17968 ; 8471 i- 

17969 ; 8472 

17970 ; 8473 CLR MBUS; 

17971 ; 8474 MLW = not ant 'DO TWO BLOCK XFERR 

17972 ; 8475 ALBA = 10 'LOAD UBUS ADRS 

17973 ; 8476 MLDA = Pere ain: 'START AT LAST BLOCK 

17974 : 8477 MLCS1 = write; 'DO A WRITE FUNCTION 

17975 : 8478 

17976 ; 8479 do ‘DELAY UNTIL XFER TO COMPLETE 

17977 : 8480 0 

17978 ; 8481 until .DRY IS_SET; 

17979 : 8482 

17980 ; 8483 if .AOE IS_NOT_SET 'SEE IF AOE SET 

17981 ; 8484 th = 

17982 ; 8485 begin ‘ERROR IF NOT SET 

17983 ; 8486 ERRDF (103, SYNC, 0); 

17984 ; 8487 PRINTB (FOR_FMT, WRD.26, PHR_1, WRD_11, FNC_19); 

17985 ;: 8488 end; 

17986 ; 8489 

ve! : 8490 ENDTST; 

17995 063634 152777 000040 126076 $142: ®BI1SB #40, aML .REG+40 : 8453 

17996 063642 016700 126322 MOV ML .DUT,RO 

17997 063646 042700 177770 BIC #177776,R0 

17998 063652 142777 000007 126060 B1CB #7, QML .REG+40 

17999 063660 150077 126054 BISB RO, aML.REG+40 


ne 


HA 


ZMLAAO ML-11 


DWARD TEST 


Ssee5F 
SESSSESESESSSS 
ENSNIASSAE 


& 
Ww 
“ 
w 
~ 


063756 


ee et ee et td ot td at > =] 
—SOVOONOUFWN oO 


Ssasasesseeseeee 


L 
$ 


aa 


062706 
000207 


004767 


000207 


177000 


126030 
001000 


007230 


000005 


000014 


177624 
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1$: 


73: 


L4 


; Routine Size: 
; Maximum stack 


T4 
1$ 


2:3 


#-1000 ,aML .REG+10 
#10.BUF ,aML.REG*20 
LST.BLK,aML.REG*+ 50 
#61,QML.REG 
aM .REG*50 


1$ 
+ etatinectea tie 


#5,-(SP) 


#14,SP 
PC 


52 words 


depth per invocation: 


PC, $142 
6 


; ?.* 


22-0ct-19 
22-0ct-19 


80 
80 


10: 
10: 


245: 


SEQ 0363 
47:44 


32 


8487 


8485 


8450 


8488 


(ot —— 


CZMLAAO ML-11 LOG 


N 12 
IC_ TEST MACRO M1113 23-OCT-80 09:11 PAGE 360 
\RARDUARD TEST SECT 


1 
ON SEQ 0364 


18053 ;ML4 22-9¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
ites 3 22-0¢t=-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (85) 
18056 ; 8492 |! 

18057 ; 8493 BGNTST; 

18058 ; 8494 

18059 ; 8495 ‘44 

18060 ; 8496 |! TEST NUMBER: TST 43 

18061 ; 8497 i 

18062 ; 8498 | TEST NAME: SYNC BUS PARITY TEST 

18063 ; 8499 |! 

18064 ; 8500 ! TEST DESCRIPTION: 

18065 ; 8501! TEST ABILITY OF SYNC BUS TO DETECT AND GENERATE 

1 3 8502 ! GOOD PARITY BY: 

18067 ; 8503! 

18068 ; 8504 |! 1. VIA MBUS WRITE FUNCTION WRITE ALTERNATING ONES AND ZEROES TO THE 
18069 ; 8505! DEVICE AND READ THE DPAR BIT CLEARED. 

18070 ; 8506 =! 

18071 ; 8507 |! 2. REPEAT WITH SHIFTED DATA 

18072 ; 8508 =! 

Hh 3 3 $444 3. VIA MBUS READ FUNCTION READ THE ALTERNATING PATTERN AND MDPE CLEARED. 
18075 ; 8511 ! IMPLICIT INPUTS: 

18076 ; 8512 ! 10_BuF 

18077 ; 8513! A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITES 

18078 ; 8514! FUNCTIONS ARE FOUND. 

18079 ; 8515 !<- 

18080 ; 8516 

18081 ; 8517 if .PAR_DIS IS_SET 'SEE IF PARITY IS DISABLED 
18082 ; 8518 then 

18083 ; 8519 begin 'PRINT MESSAGE AND EXIT TST IF YES 
18084 ; 8520 PR NT jem, FMT, FNC_3, WRD_7, WRD_37); 

18085 ; 8521 EXIT 

18086 ; 8522 end; 

18087 ; 8523 

18088 ; 8524 CLR_MBUS; 

18089 ; 8525 BAI = ONE; 'SET ON tah 10_BUF ADRS 

1 3 8526 10_BUF = %0'125252'; ‘ALTERNATE 1, 0 BATTERN 
18091 ; 8527 

18092 ; 8528 incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 

18093 ; 8529 begin 

18094 ; 8530 BGNSUB; 

18095 ; 8531 GD_BLK_XFER (); 'SET UP A GOOD BLOCK XFERR 
18 3 o33 MLUS1 = write; 'DO A WRITE FUNCTION 

18098 : ths do . ‘DELAY UNTIL XFER TO COMPLETE 
18100 ;: 8536 until .DRY IS_SET; 

18101 ; 8537 

18102 ; 8538 if .DPAR IS_SET 'SEE IF DPAR GOT SET 

18103 ; 8539 then 

18104 ; 8540 begin ‘ERROR IF SET 

18105 ; 8541 ERRDF (105, SYNC, 

18106 ; 8542 PRINTB (FOR_ FMT, ‘ae’ ‘23, WRD_6, WRD_7, WRD_9); 

18107 ; 8543 end; 


j ; ‘ es ; —" ‘ _ 13 
CZMLAAO ML-11 LOGIC TEST MACRO M1113 23-OCT-80 09:11 PAGE 56 
HARDWARD TEST SECTION SEQ 0365 


18109 ;ML4 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
aR ; 22-0ct-1980 10:45:32 PA: <NEALE>BL2ML4.8L1.2 (85) 
ete ; 8544 
18113 ; 8545 10_BUF = .10_BUF*ONE; 'SHIFT THE I0_BUF & REPEAT 
18114 ; 8546 MLER = ZEROES; ‘CLEAR OUT ERROR REG & REPEAT 
18115 ; 8547 ENDSUB; 
18116 ; 8548 end; 
18117 ; 8549 
18118 ; 8550 incr TWICE from 0 to 1 do 'REPEATE LOOP TWICE 
18119 ; 8551 begin 
18120 ; 8552 BGNSLB; 
18121 ; 8553 CLR_MBUS; 
18122 ; 8554 BAI = ONE; 'SET ON FIRST IO_BUF ADRS 
18123 ; 8555 GD_BLK_XFER (); 'SET UP A GOOD BLOCK XFERR 
18124 ; 8556 MLUS1 = read; 'DO A READ XFERR 
18125 ; 8557 
18126 ; 8558 do ‘DELAY UNTIL XFER TO COMPLETE 
18127 ; 8559 0 
18128 ; 8560 until .DRY IS_SET; 
18129 ; 8561 
18130 ; 562 if .MDPE IS_SET 'SEE IF READ GENERATED BAD PARITY 
18131 ; 8563 then 
18132 ; 8564 begin 'ERROR IF MDPE SET 
18133 ; 8565 ERRDF (106, SYNC, 0); 
18134 ; 8566 PRINTB ‘FOR_FMT, WRD_23, WRD_6, WkD_7, WRD_8); 
18135 ; 8567 end; 
18136 ; 8568 
18137 ; 8569 ENDSUB; 
18138 ; 8570 10_BUF = .10_BUF“ONE; 'MAKE DATA PATTERN HAVE ONE LESS ONE 
18139 ; 8571 GD-BLK_XFER %); 'SET UP A GOOD BLK XFER 
i ; £376 MLTS1 = write; ‘CHANGE THE BACKGROUND IN MEMORY 
1 ° 
18142 ; 8574 do ‘DELAY UNTIL XFER TO COMPLETE 
18143 ; 8575 0 
18144 ; 8576 until .DRY IS_SET; 
18145 ; 8577 
18146 ; 8578 end; 
18147 ; 8579 
Ht ; 8580 ENDTST; 
18156 064020 010146 $143: MOV R1,-(SP) : 8490 
18157 064022 026727 124302 000001 CMP PAR.DIS,#1 : 8517 
18158 064030 001021 BNE 1$ 
18159 064032 012746 006232 MOV #WRD.37,-(SP) ; 8520 
18160 064036 012746 005676 MOV #WRD.7,-(SP) 
18161 064042 012746 006774 MOV #FNC.3,-(SP) 
18162 064046 012746 005366 MOV #TRR.EMT,-(SP) 


CZMLAAO ML-11 
HARDWARD TEST 

18164 

18165 

18166 

18167 064052 
18168 064056 
18169 064060 
18170 064062 
18171 064064 
18172 064070 
18173 064074 
18174 064102 
18175 064106 
18176 064112 
18177 064120 
18178 064124 
18179 064132 
18180 064140 
18181 064142 
18182 064144 
18183 064150 
18184 064156 
18185 064162 
18186 064164 
18187 064172 
18188 064174 
18189 064176 
18190 064200 
18191 064202 
18192 064204 
18193 064210 
18194 064214 
18195 064220 
18196 064224 
18197 064230 
18198 064234 
18199 064236 
18200 064240 
18201 064244 
18202 064250 
18203 064254 
18204 064256 
18205 064260 
18206 064262 
18207 064264 
18208 064270 
18209 064272 
18210 064274 
18211 064276 
18212 064304 
18213 064310 
18214 064314 
18215 064322 
18216 064326 
18217 064334 
18218 064340 


aa 


o-_—— 
ey 4 
MNMYANMSLW 


Sanrk 
a Sat 
VIAVIVSS 


So 
— 


000004 


000012 


125252 


126372 
000041 
125566 


000040 


005726 


000005 


000014 
124072 
125504 


000001 


000040 


000071 
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125636 
125620 


125606 
124202 


125522 


125566 


125434 


125416 
125404 
125332 


3ML4 


1$: 


2$: 


3$: 


4$: 


5$: 


#4 ,-(SP) 
SP ,RO 
14 


63 

ee 

#40 ,AML.REG*40 
ML.DUT .R1 
#177770,R1 

R1, QML .REG+40 


#10, aML.REG+40 
#52526, 10.BUF 


2 
PC,GD.BLK.XFER 
#61,9ML.REG 
aML .REG+50 


3$ 
#40, QML .REG+60 
4$ 


55 

151 

SYNC 
#WRD.9,-(SP) 
#WRD.7.-(SP) 
#WRD.6,-(SP) 
#WRD.23,-(SP) 
#FOR.FMT,-(SP) 
#5,-(SP) 
SP,RO 

14 


#14,SP 
10.BUF 
irate 


#40, aML.REG+40 
ML.OUT,RO 
#177776, R0 

#7 AML .REG+40 
RO. aML .REG+40 
#16, aM .REG+40 
PC,GD.BLK.XFER 
#71, aML.REG 


SP,* 


TWICE 


: SP,* 


; TWICE 
3; TWICE,* 


TWICE 


SEQ 0366 


22-Oct-1980 10:47:44 
22-Oct-1980 10:45:32 


TOPS 
PA:< 





CZMLAAO ML=-11 L 
‘HARDWARD TEST S$ 


346 


MMPWwNRrMwNr~rwr 


400 


2 
2 
$3 064414 
2 
2 


8252 064500 
8257 
8258 
262 
8266 064502 
8267 064502 
268 064506 
8269 064510 
8270 064512 
8271 064514 


_ ee ee ke ed td a ot 2 ot 2d + 

oo C2 00 Cp CO 
Ss Son MRRP 
= Ww 
moO 

SESES 

. at a et et 
= Ww 
So So 


0 
E 


ocd 


000207 


004767 


000207 


125376 
000400 


005712 


000005 


000014 


125674 
126070 
000061 
125264 


000001 


177312 


125356 


125220 


MLS 


6$: 


7$: 


8$: 


9$: 


| 13 
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aaa 
#400, aML .REG+40 
7$ 


55 
152 
SYNC 
0 


10.BUF 
PC,GD.BLK.XFER 
#61,QML.REG 
@ML .REG+50 

8$ 


R1 
R1,#1 


(SP)+,R1 
PC 


. SP,* 


; TwIC 
: TwICc 


mn 


« 


22-0c t-1980 
22-0 t-1980 


10: 
10: 


SEQ 0367 


47:44 


45:32 


TOPS 
PA:< 


8560 
8562 
8565 


8566 


8578 
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CZMLAAO ML-11 LOGIC | 
HARDWARD TEST SECTION SEQ 0368 
18277 ;ML4 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 Vv2(206) 
1es78 ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BL1.2 (86) 
18280 ; 8582 |! 
18281 ; 8583 |! 
| 18282 ; 8584 BGNTST; 
18283 ; 8585 
18284 ; 8586 !++ 
18285 ; 8587 | TEST NUMBER: TST 44 
18286 ; 8588 =! 
18287 ; 589 | TEST NAME: WRITE READ ML11 
18288 , 8590 =! 
| 18289 ; 8591 | TEST DESCRIPTION: 
18290 ; 8592 ! 
18291 ;: 8593! PROVIDES A MBUS READ/WRITE 
18292 ; 8594! DATA TRANSFER TROUBLE SHOOTING 
18293 ; 8595! LOOP BY: 
18294 ; 8596 =! 
18295 ; 8597! 1. LOAD APPROPRIATE RH REGISTERS. 
18296 ; 8598 =! DO A WRITE FUNCTION. 
18297 ; 8599 |! 
18298 : 8600 ! 2. LOAD APPROPRIATE RH REGISTERS 
18299 ; 8601 |! DO A WRITE CHECK FUNCTION. 
18300 ; 8602 |! 
18391 ; 8603 |! 3. COMPI IMENT DATA AND 
18302 ; 8604 ! REPEAT. 
18303 ; 8605 |! 
18304 ; 8606 | IMPLICIT INPUTS: 
18305 ; 8607 |! 
18306 ; 8608 ! 10_BuF 
18307 ; 8609 |! A VECTOR OF 256 WORDS WHERE 
18308 ; 8610 ! DATA FOR MBUS READ AND WRITE 
18309 ; 8611! FUNCTIONS IS FOUND. 
18310 ; 8612 |! 
18311 ; 8613! A GLOBAL OWN LOCATION TO THIS 
18312 ; 8614 |! TEST. 
18313 ; 8615 |! 
18314 ; 8616 =! 
18315 ; 8617 ‘-- 
18316 ; 8618 
18317 ; 8619 Local 
18318 ; 8620 TST_PAT; ‘TEST PATTERN 
18319 ; 8621 
18320 ; 8622 TST_PAT = ONES; 
18321 ; 8623 
18322 ; 8624 incr TWICE from 0 to 1 do ‘WRITE READ 1°S AND O'S ON MBUS 
18323 ; 8625 begin : 
18324 ; 8626 CLR_MBUS; 
18325 ; 8627 BAI” = ONE; 'SET ON FIRST I10_BUF ADRS 
18326 ; 8628 10_BUF = .TST_PAT; ‘LOAD FIRST I0_BOF ADRS 
18327 ; 8629 GD-BLK_XFER (J; 'SET UP A GOOD BLOCK XFERR 
18328 ; 8630 MLUS1 = write; 'DO A WRITE FUNCTION 
| 18329 ; 8631 
| 18330 ; 8632 do ‘DELAY UNTIL XFER TO COMPLETE 
| 18331 ; 8633 0 
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HARDWARD TEST SECTION SEQ 0369 
18333 :ML4 22-0ct-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
tt $ 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (86) 
18336 ; 8634 until .DRY IS_SET; 
18337 ; 8635 
18338 ; 8636 CLR_MBUS; 
18339 ; 8637 BAI~= ONE; 'SET ON FIRST IO_BUF ADRS 
18340 ; 8638 GD_BLK_XFER (); 'SET UP A GOOD BLOCK XFERR 
18341 ; 8639 MLOS1 = wWRT_CHK; 'DO A WRITE CHECK FUNCTION 
18342 ; 8640 
18343 ; 8641 do 'DELAY UNTIL XFER TO COMPLETE 
18344 ; 8642 0 
18345 ; 8643 until .DRY IS_SET; 
18346 ; 8644 
18347 ; 8645 if .WCE IS_SET ‘SEE IF WRITE CHECK ERROR SET 
18348 ; 8646 then 
18349 ; 8647 begin ‘ERROR IF SET 
18350 ; 8648 ERRDF (109, TRBLE_LOOP, 0); 
18351 ; 8649 PRINTB (SIX_FMT, FNC_4, WRD_10, WRD_12, FNC_5S, FNC_6, FNC_3); 
18352 ; 8650 end; 
18353 ; 8651 
18354 ; 8652 TST_PAT = not .TST_PAT; ‘COMPLIMENT TST_PAT AND REPEAT 
18355 ; 8653 end; 
18356 ; 8654 
+t 4 3 8655 ENDTST; 
18365 064516 004167 117264 $144: JSR R1,$SAVE2 : 8580 
18366 064522 012701 177777 MOV #-1,R1 > *,TST.PAT 8622 
18367 064526 005002 CLR R2 ; TwICce 8624 
18368 064530 152777 000040 125202 1$: BISB #40,aML.REG+40 ; 8625 
18369 064536 016700 125426 MOV ML .DUT,RO 
18370 064542 042700 177770 BIC #177776 ,RO 
18571 064546 142777 000007 125164 BICB  =—s-« #7, @ML..REG*+40 
18372 064554 150077 125160 BISB RO, aML.REG+40 
18373 064560 152777 000010 125152 BISB =: #10, aML.REG+40 : 8627 
18374 064566 010167 123550 MOV R1,10.BUF > TST.PAT,* 8628 
18375 064572 004767 125744 JSR PC,GD.BLK.XFER : 8629 
18376 064576 012777 000061 125074 MOV #61, aML REG ; 8630 
18377 064604 105777 125140 28: TSTB = AML. REG*#50 ; 8634 
18378 064610 100375 BPL 23 
18379 064612 152777 000040 125120 BISB #40,aML.REG+40 
18380 064620 016700 125344 MOV ML.DUT,RO 
18381 064624 042700 177770 BIC #177776,R0 
18382 064630 142777 000007 125102 BICB  =—s-« #7, @ML..REG+40 
18383 064636 150077 125076 BISB  — RO, aML.REG+40 
18384 064642 152777 00001C 125070 BISB. —s- #10,,aML.REG*#40 : 8637 


18385 064650 004767 125666 JSR PC,GD.BLK.XFER : 8638 
18386 064654 012777 000051 125016 MOV #51, QML REG ; 8639 


CZMLAAO ML-11 LO 
HARDWARD TEST SE 


18388 
18389 


18390 
18391 064662 


064770 
064772 


064774 


ee ee et a at ot 8 tw 

@oco Coo CO OO WoO 
WWD @ Se Ss Se 
NR —NWNMNOU Ew 


WWAWw 
Pw 
uw 
o 
Oo 
~m 


6 065006 


aon 
Ne 


000207 


004767 
104466 
006000 
103773 
000207 


125062 
040000 


006774 


000007 


000020 


000001 


177516 


125042 


3$: 


4$: 


T4 


1$: 


L4 


Routine Size: 
Maximum stack 


4: 

JSR 
TRAP 
ROR 
BLO 
RTS 
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aML .REG*+50 
#40000 ,aML .REG*40 
4% 


55 
155 
“weer 


#FNC.3,-(SP) 
#FNC. 6, -($P) 
#FNC.5.=(SP) 
#WRD.12,-(SP) 
#WRD.10,-(SP) 
#FNC.4,-(SP) 
#SIX.FMT, = (SP) 
#7,-(SP) 

“RO 
14 
#20,SP 
R1 


R2 

R2,#1 

1$ 

PC 

87 words 


depth per invocation: 


SP,* 


TST.PAT 
TWICE 
TWICE,* 


22-0ct-19 
22-0ct-19 


SEQ 0370 


0 10:47:44 
0 10:45:32 


TOPS 
PA:< 


8643 
8645 
8648 


8649 


8653 


4 13 
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CZMLAAO ML=-11 LOGIC T 

HARDWARD TEST SECTION SEQ 0371 
18442 ;ML4 22-0ct-1980 10:47:46 TOPS=20 Bliss-16 v2(206) 
18443 ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (87) 


18445 ; 8657 ! 
; 8658 ! 
8659 BGNTST; 


8661 !++ 
TEST NUMBER: TST 45 


! 
; 
TEST NAME: PROM DATA TEST 
| TEST DESCRIPTION: 
VERIFY THAT CHECK SUM VALUES FOR 
ALL PRESENT MEMORY ARRAY UV PROM 
: LOCATIONS ARE ERROR FREE BY: 
i 1. DOING MBUS TRANSFERS 
i AT ALL PRESENT BLOCKS 
i AND TESTING THE UNS BIT 
, TO BE CLEARED. 
8677 IMPLICIT INPUTS: 
10_BuF 
; A VECTOR OF 256 WORDS WHERE 
; 
: 
s 


DATA FOR MBUS READ AND WRITE 
FUNCTIONS IS FOUND. 


CHIP_SIZ 
INDICATED THE SIZE OF THE 


— — 

+ + ~ 

, a 

= Aan 

Wwr— 

en Be Be Oe Be Be Be Be Be Be Be Be Be Be Oe Be Be Bs Be Be Se Be Be Se Be Ge Ge Be Se Be Be Be Be Se Be Se Be Os Be Se Se Be Ss Be Se Oe Se Se Se Se Bes 

o@oooce 

Aan 

NNN 

Ww 


18476 8688 ARRAY MODULES MOS RAMS. 

18477 8689 

18478 8690 

18479 8691 - 

18480 8692 

18481 8693 incr DSA_CNT from 0 to .LST_BLK do ‘WRITE TO ALL PRESENT BLK'S AND CHECK UNS BIT 

18482 8694 begin 

18483 8695 BGNSUB; 

18484 8696 CLR_MBUS; 

18485 8697 ECC“DIS = ONE; ‘DISABLE ECC 

184 8698 MLWl = not 255; ‘LOAD WORD COUNT 

18487 8699 MLBA = 10_ BUF; ‘LOAD UBUS ADRS 

18488 8700 MLDA = .DSA_CNT; ‘LOAD DSA 

18489 8701 MLCS1 = write; 'DO A WRITE FUNCTION 

18490 8702 
| 18491 8703 do ‘DELAY UNTIL XFER TO COMPLETE 
18492 8704 0 

18493 8705 until .DRY IS_SET; 
| 18494 8706 
| 18495 8707 if .UNS IS_SET ‘SEE IF XFERR CAUSED AN UNS ERROR 
| 


f 
8708 then 


CZMLAAO ML-11 
HARDWARD TEST 

18498 

18499 ; 
18500 ; 
18501 ; 
18502 ; 
18503 ; 
18504 ; 
18505 ; 
18506 ; 
18507 ; 
18508 ; 
18509 ; 
18510 ; 
18511 ; 
18512 ; 
18513 ; 
18514 ; 
18515 ; 
18516 ; 
18517 ; 
18518 ; 
18519 ; 
18523 

18527 065010 
18528 065014 
18529 065020 
18530 065022 
18531 065024 
18532 065026 
18533 065034 
18534 065040 
18535 065044 
18536 065052 
18537 065056 
18538 065064 
18539 065072 
18540 065100 
18541 065104 
18542 065112 
18543 065116 
18544 065120 
18545 065126 
18546 065130 


18550 

18551 genie 
18552 06514 
18553 063150 
18554 065154 
18555 065160 
18556 065162 
18557 065164 
18558 065166 
18559 065172 
18560 065176 


) eee 


then 
in 
Pants (FMT_8, ((.DSA_CNT<11, 4>) # 1)); '64K MOS RAM 
en 
else 
begin 
PRINTB (FMT_8, ((.DSA_CNT<9, 4>) * 1)); '16K MOS RAM 
end 
end; 
ENDSUB; 
end; 
ENDTST; 
116772 : 
123314 3 
2 s 
000040 124704 #40,aML.REG+40 3 
125130 ML .DUT,RO 
177770 . 
000007 124666 #7,aML.REG+40 
124662 RO, @ML.REG+40 
000002 124734 #2,aML.REG*+120 ; 
177400 124616 #-400, @ML .REG+10 ; 
010342 124620 #10. BUF, QML .REG+20 : 
124624 30 3 
000061 124566 ; 
124632 * ; 
040000 124632 TAOOte AM, EON 5 
006630 : 
006220 #WRD.35,-(SP) 
005356 #Two. EAT, - (SP) 
600003 
004602 ‘ 
000002 


13 
MACRO M1113 23-OCT-80 09:11 PAGE $68 


PROF (107, ARR_DAT, 
PRINTB (TwO_ FMT, 
PRINTB (FMT_9, . 


if .CHIP_SIZ eql 64 


0); 
wWRD 35 _PHR 24); 


!ERROR IF SET 


'NEED TO KNOW CHIP SIZE TO PRINT ARRAY NUMBER 


SEQ 0372 


8711 


8712 


J 13 
EST MACRO M1113 23-OCT-80 09:11 PAGE 368-1 


CZMLAAO ML-11 LOGIC 1 
HARDWARD TEST SECTION SEQ 0373 
| =18561 065200 104414 TRAP 14 
, 18562 065202 026727 123124 000100 CMP CHIP.SIZ,#100 : 8714 
| 18563 065210 001020 BNE 3$ 
_ 18564 065212 010100 MOV R1,RO ; DSA.CNT,* 8717 
18565 065214 006200 ASR RO 
| 18566 065216 006200 ASR RO 
18567 065220 006200 ASR RO 
18568 065222 000300 SWAB RO 
18569 065224 042700 177760 BIC #177760,R0 
18570 065230 010046 MOV RO,-(SP) 
18571 065232 005216 INC (SP) 
| 18572 065234 012746 004546 MOV #FMT.8,-(SP) 
18573 065240 012746 000002 MOV #2,-(SP) 
18574 065244 010600 MOV SP,RO ; SP, 
18575 065246 104414 TRAP 14 
18576 065250 000415 BR 4$ ; 8714 
18577 065252 010100 3$: MOV R1,R0 : DSA.CNT,* 8721 
18578 065254 006200 ASR RO 
18579 065256 000300 SWAB RO 
18580 065260 042700 177760 BIC #177760,R0 
18581 065264 010046 MOV RO,-(SP) 
H+ Es 065266 005216 INC (SP) 
18583 065270 012746 004546 MOV #FMT.8,-(SP) 
18584 065274 012746 000002 MOV #2,-(SP) ; 
18 5300 010600 MOV SP,RO 5P,* 
18586 065302 104414 TRAP 14 
18587 065304 062706 000022 4$: ADD #22,SP ; 8709 
18588 065310 104467 5$: TRAP 67 ; 8724 
18589 065312 006000 ROR RO 
18590 065314 103643 BLO 1$ 
18591 065316 005201 INC R1 ; DSA.CNT 8693 
18592 065320 020102 6$: CMP R1,R2 ; DSA.CNT,* 
18593 065322 003640 BLE 1$ 
Ht 065324 000207 RTS PC ; 8655 
18596 ; Routine Size: 103 words” ; 
+ 44 ; Maximum stack depth per invocation: 12 words 
18612 065326 145:: 
18613 065326 004767 177456 1$: JSR PC ,$145 i 8727 
18614 065332 104466 TRAP = 66 
1815 0653 006000 ROR RO 
18616 065336 103773 BLO 1$ 
18617 065340 000207 RTS PC 


Kk 13 
TEST MACRO M1113 22-OCT-80 09:11 PAGE 369 


CZMLAAO ML=-11 LOGIC 
HARDWARD TEST SECTION SEQ 0374 
18623 :ML4 22-0¢t-1980 10:47:44 TOPS=20 Bliss-16 V2(206) 
Hg 34 ; 22-0ct-1980 10:45:32 PA:<NEALE>BL2ML4.BLI.2 (88) 
18626 ; 8731 : THE CLEANUP CODING SECTION IS EXECUTED AFTER THE 
18627 ; 8732 ! HARDWARE TESTS ARE RUN ON A LOGICAL UNIT. 
18628 ; 8733 BGNCLN; 
18629 ; 8724 CLR = ONE; 'CLEAR THE MASS 8US 
18630 ; 8735 return; 
\eees § 8736 ENDCLN; 
18639 065342 152777 000040 124370 LCLEAN: BISB #40,aML.REG+40 : 8734 
Me rr 065350 000707 RTS PC ; 8729 
18642 ; Routine Size: 4 words 
18643 ; Maximum stack depth per invocation: 0 words 
18648 
18649 
18653 
18657 065352 LSCLEAN:: 
18658 065352 004767 177764 JSR PC,LCLEAN : 8735 
18659 065356 104412 TRAP 12 
18660 065360 000207 RTS PC 
18661 
18662 ; Routine Size: 4 words 
18663 : Maximum stack depth per invocation: 0 words 
18668 
18669 
18670 ; 8737 LASTAD; 
18671 ;: 8738 BGNSETUP (0); 


18672 ; 8739 ENDSETUP; 


‘CZMLAAO ML-11 LOGIC TEST 
'HARDWARD TEST SECTION 
18677 
18678 
18679 
18680 
18681 065362 065366 
18682 065364 000000 
: 3 065366 000000 
18685 
065366 
000000 
9 
065370 
065370 000207 
18695 
18696 
18697 
18702 
18703 
18704 ; 8740 end 
; 8741 


~~) 
oo 0° 
35 
ES 


8742 eludom 


nN SS we 
—OOOnNOuW 


18726 000001 


oo op eee 
Seeeee 
Fnooane 


ee ae ae 


13 
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sML4 


BLSLAS::.WORD 
.WORD 
TSFREE::. WORD 


LS$LAST= 
TSPTHV= 


SEND.LINK:: 
RTS 


; Routine Size: 


SEQ 0375 
22-0¢ t-1980 10:47:44 TOPS 
22-0ct-1980 10:45:32 PA:< 

TSFREE 
ne 
BLSLAS+4 
0 
PC ; 8736 
1 word 


; Maximum stack depth per invocation: 0 words 


: OTS external references 


-GLOBL 
-GLOBL 


Size: 

Run Time: 
Elapsed Time: 
mee Used: 
Compila 


- END 


BL$GT2, SSAVES, SSAVE4, SSAVES 
SSAVE2, BLSPU2, BLSGTI 


11069 code + 1542 data words 
02:15.5 

04:38.4 

103 pages 


tion Complete 


r ee ee 


CUMLAAO ML =11 LOGIC TEST 


‘SYMBOL TABL 
‘ADR = 000020 
ARR.DA= 007534 
ARR.IN 010324 
ARR.16 0103 
ASSEMB= 000010 
ASYNC = 007444 
BITO = 000001 
BIT00 = 00000 
BIT01 = 000002 
BiTO2 = 000004 
BITO3 = 000010 
BIT04 = 000020 
BITOS = 000040 
B1T06 = 000100 
BIT07 = 000200 
B1T08 = 000400 
BIT09 = 001000 
BIT1 = 000002 
B1T10 = 002000 
BIT11 = 004000 
BIT12 = 9000 
B1T13 = 020000 
BIT14 = 000 
BIT15 = 100000 
BIT2 = 04 
BIT3 = 00001 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT7 = 000200 
BIT8 = 00040 
BIT9 = 001000 
BLSDIV 003714 
BL$G11 002760 
BL$GT2 0031 
BLSLAS 065362 
BLSMOD 003726 


BLSPU2 
BLSSHF 003740 


ODU 
CSDRPT= 000024 


~ So oO o mand 
DADQADAQA QA A AAAAAAAAAAAAIAIAIAIAIAIAAIAIAAIA AAA AAG 


= thee. a 
MACRO M1113 23-OCT-80 09:11 PAGE 370-1 


C$pu = 000053 EVL = 000004 G FSMOD = 000000 
CSEDIT= 00000 ESEND = 002100 FSMSG = 000011 
CSEROF= 00005 ESLOAD= 000035 FSPROT= 000021 
CSERHR= 000056 E2.TEM= 007720 FSPWR = 000017 
CSERRO= 000060 FIRST. 012520 FSRPT = 000012 
CSERSF= 000054 FIV.FM= 005414 FSSEG = 000003 
CSERSO= 000057 FMT.1 = 004164 FSSOFT= 000005 
CSESCA= 000010 FMT.10= 004634 FSSRV = 000010 
CSESEG= 000005 FMT.117= 004706 F$SUB = 000002 
CSESUB= 000003 oar + ies 004742 F$SW = 000014 
CSETST= 000001 FMT.13= 004772 FSTEST= 000001 
CSEXIT= 0000 FMT.14= 005046 GD.BLK 012542 
C$GETB= 000026 FMT.15= 005106 GOOD.B 010326 
CSGETW= 000027 FMT.16= 005154 GSCNTO= 000200 
= 000043 FMT.17= 005244 GSDELM= 000372 
C$GPHR= 000042 FMT.18= 005300 G$DISP= 000003 
C$GPLO= 000030 FMT.2 = 004224 GSEXCP= 000400 
C$GPRI= 000040 FMT.3 = 004312 GSHILI= 000002 
C$INIT= 000011 FMT.4 = 004336 G$LOLI= 000001 
CSINLP= 000020 FMT.5 = 004366 G$NO = 000000 
CS$MANI= 000050 FMT.6 = 004470 GSOFFS= 000400 
CSMEM = 000031 FMT.7 = 004520 GSOFSI= 000376 
CSMSG = 000023 FMT.8 = 004546 GSPRMA= 000001 
CSOPEN= 000034 FMT.9 = 004602 GSPRMD= 000002 
CSPNTB= 000014 FNC.1 = 006752 GSPRML= 000000 
CSPNTF= 000017 FNC.10= 007074 GSRADA= 000140 
CSPNTS= 000016 FNC.11= 007104 G$RADB= 000000 
CSPNTX= 000015 FNC.12= 007124 GSRADD= 000040 
C$Q10 = 000377 FNC.13= 007136 GSRADL= 000120 
C$RDBU= 000007 FNC.14= 007146 GSRADO= 000020 
CSREFG= 000047 FNC.15= 007162 GS$XFER= 000004 
CSRESE= 000033 FNC.16= 007174 G$YES = 000010 
CSREVI= 000003 FNC.17= 007206 HELP = 000000 
CS$RFLA= 000021 FNC.18= 007216 HOE = 100000 
C$RPT = 000025 FNC.19= 007230 HW.OR. 007722 
CSSEFG= 000046 FNC.2 = 006766 IBE = 010000 
C$SPRI= 000041 FNC.21= 007242 IDU = 000040 
C$SVEC= 000037 FNC.22= 007254 IER = 020000 
CSTPRI= 009013 FNC.25= 007266 INTER = 007622 
DAT.DM 012626 FNC.3 = 006774 10.BUF 010342 
DFPTBL 002520 G FNC.4 = 007002 ISR = 090100 
DIAGMC= 000000 FNC.5 = 007020 IXE = 004000 
DIVMOD 003532 FNC.6 = 007030 I$AU_ = 000041 
DRIVE. 011674 FNC.7 = 007036 ISAUTO= 000041 
D1.TEM= 007714 FNC.8 = 007046 ISCLN = 000041 
D2.TEM= 007716 FNC.9 = 007062 1$DU_ = 000041 
EF .CON= 000036 G FOR.FM= 005400 ISHRD = 000041 
EF .NEW= 000035 G FSAU_ = 000015 ISINIT= 000041 
. 000034 G FSAUTO= 000020 I$MOD = 000041 
EF .RES= 000037 G FSBGN = 000040 ISMSG = 000041 
EF .STA= 000040 G FSCLEA= 000007 ISPROT= 000040 
EIG.FM= 005474 FSDU_ = 000016 ISPTAB= 000041 
LV.FM= 005576 FSEND = 000041 ISPWR = 000041 
ERRBLK 002160 G FSHARD= 000004 ISRPT = 000041 
ERRMSG 002156 G FSHW = 000013 ISSEG = 000041 
ERRNBR 002154 G FSINIT= 000006 ISSETU= 000041 
ERRTYP 002152 G FSJMP = 000050 ISSFT = 000041 


aa a 


an 


a 

wr 

_ 

nm 
° “Ss 
ununnwe 


LSPRIO 


000041 


002042 


an 


DQOAQOQAQAQDAQAQADAAAAIAAAAAAAAAAAAANRAAIAAIAAAAAIAAAAAA 


SEQ 0376 


¥ TiS ye Ge . a 
‘CZMLAAO ML=11 LOGIC TEs? MACRO M1113 23-OCT-80 09:11 PAGE 370-2 
SYMBOL T 


ABL SEQ 0377 
LSPROT 005712 G PRI == 002000 G P.ABU 006034 P.ADZ 007020 REG.IN 011676 
LSPRT 902112 G PRIOO = 000000 G P.ABV 006040 P.AEA 007030 REG.1 = 007302 
LSREPP 002062 G PR1IO1 = 000040 G P.ABW 006046 P.AEB 007036 REG.10= 007372 
LSREV 902010 G ene = 000100 P.ABX 006054 P.AEC 00704 REG.11= 007400 
/LSRPT 004116 G PRIOS = 000140 G P.ABY 006062 P.AED 00706 ~F 9m 007406 
:L$SOFT 002662 G PRI04 = 000200 G P.ABZ 006076 P.AEE 007074 REG.15= 007414 
jLSSPC_ 002056 G PRIOS = 000240 G P.ACA 006104 P.AEF 007104 REG.14= 007422 
:LSSPCP 002020 G PR106 = 000300 G P.ACB 006112 P.AEG 007124 REG.15= 007430 
LSSPTP 002024 G PRIO7 = 000340 G P.ACC 006126 P.AEH 007136 REG.16= 007436 
L$STA 002030 G PRSN 002340 G P.ACD 006134 P.AEIL 007146 REG.¢ = 007312 
$SW 002340 G PTBL.P 010320 P.ACE 006142 P.AEJ 007162 REG.3 = 007320 
LSTEST 002114 G P.AAA 004164 P.ACF 006156 P.AEK 007174 REG.4 = 007326 
LSTIML 002014 G P.AAB 004224 P.ACG 006164 P.AEL 007206 REG.5 = 007334 
LSUNIT 002012 G P.AAC 004312 P.ACH 006200 P.AEM 007216 REG.6 = 007342 
L10000 002336 P.AAD 004336 P.ACI $6306 P.AEN 07230 REG.7 = 007350 
L10001 002342 P.AAE 004366 P.ACJ 06212 P.AEO 007242 REG.8 = 007356 
L10002 002440 P.AAF 004470 P.ACK 006220 P.AEP 007254 REG.9 = 007364 
L10003 002670 P.AAG 004520 P.ACL 006226 P.AEQ 007266 RE2 004106 
MEM.AR= 007566 P.AAH 004546 P.ACM 006232 P.AER 007302 RES 004104 
ML.DUT 012170 G P.AAI 004602 P.ACN 006242 P.AES 007312 RE4 004102 
LUN 012166 G P.AAJ 004634 P.ACO 006250 P.AET 007320 RH.ADD 012160 G 
ML.REG 011700 G P.AAK 004706 P.ACP 006260 P.AEU 007326 RH.TYP 012162 G 
MSGH1 002440 P.AAL 004742 P.ACQ 006264 P.AEV 007334 RH.VEC 012164 G 
MSGH2 002454 P.AAM 004772 P.ACR 006300 P.AEW 007342 SEV.FM= 005452 
MSGH3 002502 P.AAN 005046 P.ACS 006306 P.AEX 007350 SFPTBL 002340 G 
MSGH4 002525 P.AAO 005106 P.ACT 006316 P.AEY 007356 SIX.FM= 005432 
MSGHS 002556 P.AAP 005154 P.ACU 006324 P.AEZ 07364 STACK 011354 
MSGH6 00261 P.AAQ 005244 P.ACV 006336 P.AFA 007372 STK.OF 011342 
MSGH7 002634 P.AAR 005300 P.ACW 006350 P.AFB 007400 SVCGBL= 177777 
MSGS1 002670 P.AAS 005350 P.ACX 006360 P.AFC 007406 SVCINS= 177777 
NIB.SA 007714 P.AAT 005356 P.ACY 006370 P.AFD 007414 SVCSUB= 177777 
NIN.FM= 005520 P.AAU 005366 P.ACZ 006400 P.AFE 007422 SVCTAG= 177777 
ONEFIL= 000001 P.AAV 005400 P.ADA 006406 P.AFF 007430 SVCTST= 177777 
ONE .+M= 005350 P.AAW 005414 P.ADB 006420 P.AFG 007436 SYNC = 007500 
° 010322 P.AAX 005432 P.ADC 006426 P.AFH 007444 S$LSYM= 010000 
OSAPTS= 000001 P.AAY 005452 P.ADD 006436 P.AFI 007500 TEN.FM= 005546 
O$AU = 000001 P.AAZ 005474 P.ADE 006446 P.AFJ 007534 THR.FM= 005366 
OSBGNR= 000001 P.ABA 005520 P.ADF 006454 P.AFK 007566 TRBLE.= 007662 
O$BGNS= 000001 P. 005546 P.ADG 006462 P.AFL 007622 TST.LN 012660 
= 000001 P.ABC 00557 P.ADH 006472 P.AFM 007662 TWO.FM= 005356 
OSERRT= 000001 P.ABD 005630 P.ADI 006504 RAS.IN 011666 TSARGC= 00 
OSGNSW= 000001 P.ABE 005634 P.ADJ 006510 CS1 014244 TSCODE= 000130 
OSPOIN= 000001 P.ABF 005646 P.ADK 006526 RD.DA 014600 TSERRN= 000000 
O$SETU= 01 P.ABG 005654 P.ADL 06542 RD.DAT 011672 TSEXCP= 000000 
PAR.DI 010330 P.ABH 005662 P.ADM 006560 RD.DS 017514 TSFREE 065366 G 
011662 P.ABI 005670 P.ADN 006576 RD.D1 016366 TSGMAN= 000000 
PHR.1 = 006542 P.ABJ 005676 P.ADO 006630 RD.D2 016704 TSHILI= 000007 
PHR.10= 006740 P.ABK 005712 P.ADP 006646 RD.D3 017236 T$LAST= 000000 
PHR.2 = 006560 P.ABL 005726 P.ADQ 006660 RD.EE 016242 T$LOLI= 000000 
PHR.3 = 006576 P.ABM 005740 P.ADR 006672 RD.EL 016200 TSLSYM= 019000 
PHR.4 = 006630 P.ABN 005750 P.ADS 006714 RD.ER 014422 TSNEST= 177777 
PHR.5 = 006646 P.ABO 005760 P.ADT 006726 RD.E1 015356 TSNSO = 000000 
PHR.6 = 006660 P.ABP 005770 P.ADU 006740 RD.E2 015576 TSNS1 = 000021 
R.7 = 006672 P.ABQ 005774 P.ADV 006752 RD 014756 TSPTHV= 000000 G 
PHR.8 = 006714 P.ABR 006006 P.ADW 006766 RD.PA 015150 TSPTNU= 000000 
PHR.9 = 006726 P.ABS 006014 P.ADX 006774 RD.PD 016040 TSSAVL= 177777 
/ PNT = 001000 G P.ABT 006022 P.ADY 007002 RD.REG 020210 TSSEGL= 177777 


r 


CZMLAAO ML-11 LOGIC TEST 


SYMBOL TABLE 


TSSUBN= 000000 
TSTAGL= 177777 
TSTAGN= 010005 


021714 G 
T10 026730 G 
111 030102 G 
Ti2 031350 G 
113 032616 G 
T14 033516 G 
115 033754 G 
T16 035120 G 
T17 036960 G 
118 036454 G 
119 037122 G 
T2 022402 G 
T20 037460 G 
21 040634 G 
T22 041410 G 
123 042534 G 
124 043312 G 
T25 044276 G 
126 045410 G 
127 046204 G 
128 047600 G 
T29 051336 G 
13 023024 G 
130 052350 G 
131 053304 G 
132 053736 G 
133 054774 G 


- ABS. 065372 000 
001 


000000 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 


DYNAMIC MEMORY: 4 te ate ( 82 PAGES) 


ELAPSED TIME: 00:1 


AN B14 
MACRO M1113 23-OCT-80 09:11 PAGE $70°3 


WRD. 29= 006142 


FOOonMfwuoeonr 


DODAQAAAAAAAAAAAMAAGAACGa 
o o . . ; a e . . os om = s 
MmMmMmMMNMoOVVVVIle O@O~ 


w = Ww 
ArIWO& ~“N 
WOM FUN NOON —AViouvmwo 
Brower mum Se 


Se 248 Sea Baa EEE CHE OC ECE ES 
-—-2S OONOULSWN—oO 


. e o wo o o . . 7 _ . ° . a . . o o . 
NOPQIPOIPO POPPA —? 2 PO OO os 
QVislrwn—Oo O@B IAF MUFSWN—oO 


“PA 


feleleleleleleleleleoleoleoelelelea lela jojlaiaj =) 
ee et at at ot ot ot ot OOO 
SI EAA NAAN ES SW 
AO NO NUM PD PM AW SO 
DNA OO NUN FE WNO -WINR 
COMM LF AONMNA OAOMNMO LOMO 


DAQMDAG 


SEQ 0378 


ML11,Mi11/-SP/CR:SYM=SVC/ML,CZMLAA.DOC,ML2.P11,816PG1.P11,616PG2.P11,B16PG3.P11,B16PG4.P11,B16MUL.P11,B16SAV.P11,ML35.P11,.ML4.P11 


C 14 


PAGE 1 
CREF 


CREATED BY MACRO ON 23-OCT-80 AT 09:15 


mL11 


'SYMBOL CROSS REFERENCE 


SEQ 0379 


v01 


227-10201 


#155-5708 


10106 227-10122 
10559 233-10578 
-17640 352-17660 


5312-15426 370-18713 


224-9859 


03 


S3S33Ss8 


oooocoocjn”ne rere KK KUM TNO ODO 


ee 





BLSSHF 


CSREVI 


mL11 CREATED BY MACRO ON 23-0C7-80 AT 09:15 
wa wore REFERENCE 


LUE 
“508740 G 


89 
| et ad 


#155-5685 


7-65 


PAGE 2 

CREF v01 
12-162 12-16 13-191 19=175 
24-147 24-153 25-180 31-192 
#155-5705  368-18562 


SEQ 0380 


ML11 
peasy CROSS REFERENCE 


DWNOUSWNH—O 


wonne 
> 


CREATED BY MACRO ON 23-0CT-80 AT 


012626 
002320 


007714 
007716 
000036 


007720 
012520 


= 005414 


004164 


004312 


DAQAOQGACG 


DAAQDA 


REFERENCES 
#7-13 


#7-13 
#87-2145 246-11746 
Fs es 341-17028 


#81- rie $c 


53- 2103 
geeeigor 19 
19 


5364 


bao 


#78-1699 


09:15 


*258-12406 
*325-16095 


233-10590 


169-6562 


175-6911 


PAGE 3 
CREF 


v01 


270-13067 


265-12748 


#342-1709/ 


234-10615 


174-6873 


189-7715 


293-14353 2946-14393 300-14709 3500-14741 


175-691 


5311-15340 


*266- 12800 #271-13094 *#277-13426 *#279-13539 *294-14416 
#266-12801 *271-13095 #277-13427 #279-13540 *294-14417 


*266-12802 


232-10547 
197- ~813? 


181-7257 


241-11442 


*271-13096 


241-11353 
6 


305-15040 


#277=13428 *279-13541 #294-14418 


252-12053 


332-16480 


25 


2-12075 


278-13494 


230-10401 
348-17426 


SEQ 0381 


ML11 


SYMBOL VALUE 
FMT.G © = 004336 
FMT.S == 004366 
FMT.6 == 004470 
FMT.7 == 006520 
‘FMT.8 = = 004546 
/FMT.9 = 004602 
'FNC.1 = = 00675 
FNC.10 = 007074 
FNC.11 = 007104 
FNC.12 = 007124 
FNC.13 = 007136 
FNC.14 = 007146 
FNC.15 = 007162 
FNC.16 = 007174 
FNC.17 = 007206 
FNC.18 = 007216 
FNC.19 = 007230 
FNC.2 = 006766 
FNC.21 = 007242 
FNC.22 = 007254 
FNC.23 = 007266 
FNC.3 = 006774 
FNC.4 = 007002 
FNC.5 = 007020 
FNC.6 = 007030 
FNC.7 = 007036 
FNC.8 = 007046 
FNC.9 = 007062 
FOR.FM = 005400 
FSAU = 000015 
FSAUTO = 000020 
FSBGN = 000040 
FSCLEA = 000007 
FSDU = 000016 
FSEND = 000041 
FSHARD = 000004 
fF SHW = 000013 
FSINIT = 000006 
FSIMP == 000050 
FSMOD = 000000 
FSMSG = 000011 
FSPROT = 000021 
FSPWR = 00001 
FSRPT = 000012 
F$SEG = 000003 
F$SOFT = 000005 
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SYMBOL CROSS REFERENCE 
MB U 


REFERENCES 
#78-1700 


#7-13 


MON @ 9 VM FNWAOONWO-@Owowonr 
AOD@d AOUNWESMOO Wr WO 


09:15 


326-16162 


48-11862 
68-18583 


287-140 


289-1413 
5318-15745 


193-7899 
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v01 


326-16198 
352-17650 
259=12460 
227-10145 


5347-17378 
5335-16744 
335-16738 


193-7916 


Wwrnm MRM NOWRONM—r 


14 


327-16233 
352-17670 
337-16814 


227-10174 
229-10377 


5347-17400 


337-16807 


223-9799 


215-9329 


353-17713 
368-18558 


227-10219 
230-10397 


3439-17421 


224-9835 


15-9347 


211-9069 
239-11093 


216-9372 


206-8622 
2295-14469 


5305-15023 


3561-18161 
366-18404 
207-8640 

296-14495 


318-15741 


241-11429 


5366-18399 


207-8669 
3501-14797 


5331-16463 


2289-14140 
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*362-18201 *365-18243 *365-18374 368-18539 
000100 G #78-1687 
04000 G #78-1692 
000041 #7-13 
000041 #7-13 
000041 #7-13 
#7-13 
000041 #8-226 48-247 
000041 #7-13 
000041 #7-13 7-39 #7-39 8-337 #8-337 
000041 #7-13 
000040 #7-13 #8-305 


SYMBOL CROSS REFERENCE vol SEQ 0383 
SYMBOL VALUE REFERENCES 
FSSRV = =_- 000010 #7-13 
F$SUB = =_: 000002 #7-13 
F$SW = 000014 #7-13 7-150 7-162 
FSTEST = 000001 47-13 
GD.BLK 012542 #85-2046 294-14380 3000-14732 30464-14987 305-15008 311-15327 317+15686 317-15703 3246-16051 
| ¢31-16828 331-16442 3461-17053 3466-17330 346217352 362-18182 362-18217 363-18244 4365-18375 
: 010326 473-1434 85-2048 87-2147 *155=5675 *266-12846 
GSCNTO = 000200 #7-13 
GSDELM = 000372 #7-13 
GSDISP = 000003 #7-13 
GSEXCP = 000400 #7-13 
GSHILI = 000002 #7-13 
G$LOLI = 000001 #7-13 
G$NO = 000000 #7-13 
GSOFFS = 000400 47-13 8-239 8-240 8-241 8-242 8-243 8-244 8-245 8-285 
GSOFSI = 000376 47-13 8-239 8-240 8-241 B-242 8-243 8-244 8-245 8-285 
GSPRMA = 000001 47-13 8-239 
GSPRMD = 000002 47-13 8-240 8-261 8-242 8-244 
GSPRML = 000000 47-13 8-243 8-245 8-285 
GSRADA = 140 #7-13 
GSRADB = 000000 47-13 
GSRADD = 000040 #7-13 8-242 
GSRADL = 000120 47-13 8-243 8-245 8-285 
G$RADO = 000020 #7-13 8-239 8-240 8-241 8-244 
| GSXFER = 000004 47-13 
GSYES = 000010 #7-13 8-239 8-240 8-241 8-242 =243 8-244 8-245 8-285 
HELP = 000000 a7-4 7-8 7-30 7-48 7-67 7-105 7-121 7-152 #8-167 
8-228 8-249 8-276 8-291 8-313 -330 8-340 
HOE = 100000 G 478-1696 
HW.OR. 007722 473-1627 = #241211371 261-11614 
IBE = 010000 6G 478-1693 
1DU = 000040 G #78-1686 
IER = 020000 G #78-1694 
INTER = 007622 #81-1850 161-6017 208-8691 =. 211-9090» 2239-11091 2277-13454 28714011 296-14492 335-16733 
10.BUF 010342 474-1446 84-1999 85-2049 86-2098 87-2148 2558-12356 258-12380 264-12719 265-12772 
285-13884 288-14049 #294-146378 *300-14731 *304-14986 *305-15004 305-15015 310-15279 3116-15644 
#317-15694 318-15724 #324-16045 #324-16046 #331-16419 #331-16420 #331-16433 331-16450 #334-16690 
335-16699 335-16708 *336-16767 336-16770 *336-16781 336-16786 *340-17014 #340-17018 #340-17019 
#340-17020 #346-17329 #346-17344 3467-17370 347-17392 351-17627 356-17884 359-18005 *362-18179 
I 
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nnnnnnnnnnan 
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So 

= 
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VALUE 
ISPTAB = 000041 
I$PWR = 000041 
ISRPT = 000041 
‘ISSEG) = 000041 
ISSETU = 000041 
ISSFT = 000041 
ISSRV = =_: 000041 
1$SUB = 000041 
I$TST = 000041 
|y$uMP = =_: 000167 
LAST.B 012574 
LAU 004152 


LOE = 040000 G 
LOT = 000010 G 
LRPT 004114 


LST.AR 010340 
LST.BL 010334 


— 

ww 

oO 

oO 

So 

o 

Nm 

oa 

w 

—™ 
DADAVAAIAIAIAIAIAAIAGA 


LSDLY 002116 


LSDTP 002040 


SEF 
LSENVI 002044 
LSERRT 002152 


- 

bad 

o 

< 

—~ 

~«< 

So 

Oo 

Nm 

_ 

~ 

—~ 
QDAQAOAAAAC 


996-2672 


267-12856 

474-1443 
278-13482 
7-65 


236-10768 
258-12385 
276-13403 
5300-14714 
342-17088 


MACRO ON 23-0CT=80 AT 
REFERENCES 
#7-13 


276-13377 
46-198 


46-100 
5369-18658 
46-148 
264-12737 


156-5758 
325-16119 


46-49 
*155-5677 
267-12865 
86-2097 
3591-17614 
#46-198 
#46-100 


#369-18657 


446-148 
#7-80 


#7-96 


276-13399 2788-13512 35353-17693 


227-10155 22710199 9257-12335 


3353-17697 353-17712 356-17874 359-18006 368-18528 
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SYMBOL CROSS REFERENCE CREF = v01 

SYMBOL VALUE REFERENCES 

LSETP 002102 G #7-65 

LSEXP1 002046 G #7-65 

LSEXPS 002064 G #7-65 

LSEXPS 002066 G #7-65 

LSHARD 00 G 7-65 8-226 #8-226 

LSHIME 002120 G #7-65 

LSHPCP 002016 G #7-65 

LSHPTP 002022 G #7-65 

LSHW 002320 G 7-65 7-119 a7-119 

LSICP 002104 G #7-65 

LSINIT 021512 G 7-65 #156-5758 

LSLADP 002026 G #7-65 

LSLAST = 065366 G 7-65 4370-18686 

L$LOAD 002100 G #7-65 

LSLUN 002074 G #7-65 

LSMREV 002050 G #7-65 

LSNAME 002 G #7-65 

LSPRIO 002042 G #7-65 

LSPROT 002712 G 7-65 #8-305 

LSPRT 002112 G #7-65 

LSREPP 002062 G #7-65 

LSREV 002010 G #7-65 

LSRPT 004116 G 7-65 #46-49 

LSSOFT 002662 G 7-65 8-274 48-274 

LSSPC 002056 G #7-65 

LSSPCP 002020 G #7-65 

LSSPTP 002024 G #7-65 

LSSTA 002030 G #7-65 

L$SW 002340 G 7-65 7-150 #7-150 

LSTEST 002114 G #7-65 

LSTIML 002014 G #7-65 

LSUNIT 002012 G #7-65 154-5607 154-5623 154-5655 

10000 002336 7-119 #7-139 

L10001 002342 7-150 #7-162 

L1 002440 8-226 48-247 

L10003 002670 8-274 #8-288 

MEM.AR = 007566 #81-1849 

ML .DUT 012170 G #77-1637 131-4496 =132-4522 = 135-4686) §=—.: 136-4712 =: 139-4890 §=—: 140-4919 *155-5670 =: 156-5736 
158-5841 161-6005 162-6033 162-6039 162-6047 163-6091 165-6249 169-6500 172-6783 
173-6811 178-7106 185-7495 186-7520 186-7540 189-7680 192-7856 197-8119 199-8231 
200-8278 204-8494 206-8606 207-8653 211-8897 211-9007 211-9053 213-9245 218-9505 
222-9732. 9224-9815 224-9822 = 224-9848 = 2.2.4-9855_ 225-9890. «= 2.27-10096 9227-10161 2227-10206 
229-10333 232-10542 2236-10750 2539-11005 2241-11347 2641-11377 245-11694 2252-12045 252-12070 
257-12343 258-12374 264-12712 265-12765 270-13037 2700-13063 276-13367 276-13394 278-13489 
278-13507 285-13876 288-14042 2935-14345 294-14374 2946-14386 299-14698 3000-14726 300-14737 
304-14981 305-14997 3510-15319 311-15332 3516-15634 317-15699 317-15708 323-16032 5324-16061 
330-16406 5331-16438 335-16719 336-16761 336-16776 340-17006 341-17045 341-17058 346-17324 
ot ape 351-17621 352-17684 356-17878 358-17996 762-18174 362-18212 5365-18369 365-18380 

ML .LUN 012166 G 477-1636 = 154-5621 #154-5622 = 154-5623 = 154-5626 9=#154-5653  *154-5654 154-5655 155-5662 
156-5730 158-5874 163-6104 167-6335 169-6585 175-6918 181-7280 190-7730 193-7931 
201-8314 208-8707 211-9106 216-9384 219-9551 = 2239-11211 2241-11453 2469-11881 2254-12147 
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DRI DIC DI CID DIDI CIID KICKIN II IMI MIM MMMM MMM MM MMM MM MIRAE MME AT RI 
DOTOMMM~TOD—O—DOMOeK Kk — OF Oe Oe DOC OK OMWDODNWV OG sr OMT 
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REQUIEM IPY PP) FS ST TT ONNNODOO OO ORL KKEKL KK CODD OD 
Pk aaah seek seek seek eek ook ee oe oe cee el ee ce oe ee el ee el ee ea el eel eel eel cel ee ee ee ee eel ee ee ee ee ee el ee ee ee ee ee 
seevevetpepevpeeeeeeepeeeeeeeeeee eet atlaellaktlaelaklaeaelaka kaka 
~KDOTNNHOOCOOODOMN OR. DOM TOOTIMN KF DTK —NNNOVOO— VOR —MOA CMM 
MWNOO ORFF. DODDDO OOOO OCO © &— — UMM MMMM FF TT TMM OO OO 
Pavia’ lav lav lata ih lh ih ie Lk lb le la lela a 18 18 1141.41.04 ee 
OD OK — A OOK NOWVOR OFF OD DOOAWEK FTF OO DMDOW ST ODD TF OUMMMR WO 
MWR OTK MOR. ODOR MK TO TR. COMBOMM — DOG OW OD trOUVNONCODOOWF MM 
MPM STE BR OOKMIMTMDOA AO OOMM TF. F. HOM OP OF OFF DOOMMOODOK— UMNO 
RECCOMEND PPD 0 SOS TT TT TNWNNN OOOO OOO ORFF  CO0D 0D C0000 
Ce mek ek ek ek el ol el el el el el el el el el el el eel el el el el ee ee ee ee el el el ee el el el el ee ee el el el ee ee ee 
epeeveetpeueeeueeuevueeeepeevpespseevpepeepouspevepeveeeveteeeeeee eee tb 6 8 
~~ DOMNNOSOODOWDWOMN OR. DOM Ss TOOT — OD TOMNMNN O OR — — OR K— MOO CUMNDO 
MONO OPRF.FF_ FF. DW DDWDWOEA AA OOOO MIM MMII PIM TF TT TMM OO OOO 
Poviav iat iaviat lata a lh ih ib ib la la ie le ib 1a 180 4l0le ele eee ele 
Or NOOOMOE Or On Kh OMNK FT OMP FOOT OR MOMF WO FORK MK VK ToOOOoNT 
T~OTK MOO DOs OT TK COMP OMIM OC OO OW OR. O TFWONMNVO DOR — he Mas 
MPM STE BR OCOOMMTNMNDA COMM THF OMOR. OF ORFF COOMMOODOK UMMM 
ROCCE EPI PMP) FF TT TT TT TNMNNN OOOO OOOORF PPP COCDH CORD 
Ce seek meek eel eel el el el el el el el eel el eel el el el ee ee el el ce ee ee ee el el ee el eel el el el el ee ee ee ee 
eeeeveveeeeveeepeeeeeepeeeupeeeeueeepeeseeeeeeueeueoeeeoepeeoeeeteete_eoeeoeest 
~DONNOOCOOVODDE NHODOM sas TOOK MN OF TFONNNOOO — OOK MOA wWMDD 
MANO OPRP-P FFF PF- DODDS OOD COK SK K— VUMMMMMMM FT TT TWMMMNNODODOOO 
Pevlaviatiaviavliat ia ih lh Lh la lb Lb la la la id 18 1d 0840 ele lll lll eee eel 
DOTA UV OM@DE OF DTN MTOM A K—_ MNOMTN— NDUCOO-— OF OFF OMIM 

—- TrO-— OCOWODODO UG TFT DOTFARUP SOMO MMO OOTOWOR- SWVNOUNMNNDOOM OT 

ODO MMT DOMM TST TMNOPFOOK MMF PF OM OF OS TPP PF COMM OODO RK MMN 

SMC CUCU CUMMMMMMMM TTT TT TTT NNN OODOOOOOORP-P-P-PF-P-F-F- COCO COO 

LL LL LL LL 
oa eeveeeveeeveeeepeeeeeesepespeeeeueereeoeereeweewneaewsetlcatlc kl klk aah aka 
~-DWOTMNOOOOP DOMNODO OT TRORK MN OF FORK NNOOOK — OOK VODWNMOD 
We MAWMMOOOPP-PF-P-F-P- DDODDOEOA FOOD — — —K— NMM MM MPMI PNT TAT TMOMMNN OO OOO 
b> 4 Potlaviatiavliaviav lala a lh la La LaLa Lat lat iat la ld 18 alld lll lle e eee eee AL ale) 

= 

aw 
MNT ODO —- DOK MNO OO — DOOCO — OD OG JF TMMM MDT MN F-F- MON OF DOM — 
TA — DONG DUSMODWOsSh — ODOM OA VNOONA TO OF- ANNAN VOR OR OW 
MMMF KR DOOM ST TMNOAOOK— MMF. KR. COMME COSTER COMMOOODO — UMMM 
NOU CUMIN ENN SF ST TT TTT TNNNO OOOO OOORAL ALAA P FP 000000000 
Ce eek ek seal el oe el el el el eel el el el el el el el ee ee el ee ee el ee el el el el el ee el el el ee ee ee 
wn @#evuvevevevuevpeeveeepeeeeespeveepeperpevresvpeepsvpesrperpevpeveoposep be beeeet st 
-— DODO TNOO-— OR DONODOOSTTROORK NK KK TANK NNOOO—— OVO K— VODUAMN OD 
*- MMOWMNOOORP-PA_P. LF. DODWDDDAAAOOO €— — NCI MIMI MIPIM) SF TT TMMNNNOOOOO 
S Patiala iat iat layla La Lh Lh Lh Lh Lat a Lh Lh Lb ld 1d 1d dd ht lol lel lle le 
_ ODOM KR OR. ND OME FO CIMT DOD SFT MOMUN ST UT MMOOMP OF MUMS — OO 
< TOK —DODOTRR.UAVONOO- NDOWUMAWVNOONATOR OR AWUMNGA TVUOVOR— Ov 
PMMM—E KR DOOM ST TMOAOO RK MMF. SOMME OOSTRLLKRKRCOOOMOOR. OK UMMM 
Oo RUC CUMMINS ST TT TT TMNMNNOOOOOOWOORLELRA.APR KR COCO DOOD 
@ wjceenrerer eer ecr ee KK eK CK KK KC COC RC CC CR CC CC CC OO CC OO OC COOK KKK Or-DOSO 
| oereovoeveevevpevoepevepeeeeeepeeeepeepereepervpeereeeeeee se eb bb Ft FINAN SO 
- WO TNOOe OR. DAMOR. DOMTRHOOM KKK TNK— NNOOVOK — WOK UMD CUCUM MN DWevueucucun 
v MINN OOORP-P-F_PF- PR. DDDDDO AOC — — CMM MMMM TF FT TTMNMNMNOOOOO! + tt 3 
~ 
N ANWV OT OMT OOWDMMNT VE ANP DMVUON— AMO NOWAK TOMO OO- Ovo 
WFTW — OO TOR. — HAVUDNANK— NDAUNAVUOOMATOe OR. DVUNAMUNWUO—— OOM 
3 OMMMP KBR OOPS TMNDOACAO-— MM OR. PF. OMMROCOSTRLLKR COOMO OR DOWMMN 
ZU CUM MMMM MONI TT TTT TNNNOOOOOOOORALPKLPP_P_R. CODCOD 
Weer nKr KKK KK Re RK Re RR RC RC CK RC OC OC COC CO CCC CO CC EO OOO OOK 
amarerpreeteevuvpeeveevpeepeevpeepepepeeerepepeevreerepevneereee eee eee t tMwwT wT 
CO WH DWOWTNNKHO— OK DONOR DOMTROOMN K— KK TNH NNOOOOK— VOK— NMOS UMMBDeuccunun 
a aN OO OPP PKR. DDWDWDDOAOOCOCO  — — NCUMMMMMM TF TFT TTMMMMMOOOO! 1 1 1 ft 
2 WUT otratlatlatlavlatlatiatialatiala lala lala lala ial) Dalalalslalslsls salsa slslalslalslslsl sss sles) ol) ke) 
a 
= 

w 
wv 
@oa2z 

ws 
ox 
[vervy) 

— ovr Oo 
aw FTnNonwwn 
wo Ao) Oho 
<= ws NON 
VwwWND ooococe 

YO ocoooceo 

ox 

=> 

o) 

—_ 

55 — NUM 
-—2¢ zzrxrt=x 
-— oguouoNo 
Bna ywnnnw 

nw Zzzz=z 





i nn 


CREATED BY 


1 

‘SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
MSGH6 002610 
MSGH7 002634 
MSGS1 002670 
NIB.SA 007714 
NIN.FM = 005520 
ONEFIL = 000001 
ONE.FM = 005350 
OP .NUM 010322 
OSAPTS = 000001 
OSAU = 000001 
OSBGNR = 000001 
OSBGNS = 000001 
O$DU = 000001 
OSERRT = 000001 
OSGNSW = 000001 
O$SPOIN = 000001 
O$SSETU = 000001 
PAR.DI 010330 
PD.TEM 011662 
PHR.1 == 006542 
PHR.10 = 006740 
PHR.2 = 006560 
PHR.3 = 006576 
PHR.4 = 006630 
PHR.S = 006646 
PHR.6 = 00666 
PHR.7 = 006672 
PHR.B = 006714 
PHR.9 = 006726 
PNT = 001000 
PRI = 002000 
PRIOO = 000000 
PRIO1 = 000040 
PRIO2 = 000100 
PRIO3 = 000140 
PRIO4 = 00020 
PRIO5 = 000240 
PRI06 = 000300 


QAQAQAAAAGAC 


285-13872 
#7-1 


#7-13 
#7-13 
#7-13 
#7-13 
#7-13 
#7-13 
#7-13 
#7-13 
#74-1440 
#74-1450 


*279-13528 
5301-14776 


#78-1676 


«1 
4288-14037 


#7-46 
#7-46 
#7-46 
#7-46 
#7-46 
#7-46 
#7-46 
#7-46 
#7-46 
#155-5668 


347-17401 


MACRO ON 23-OCT-80 AT 09:15 
REFERENCES 
8-244 


6-1177 
155-5688 


Pa: 
185- ~7490 


fe 


co 


~12616 #265- “15785 
: «932° ratte « 


82-1905 


#96-2696 


#97-2740 


189-7713 


368-18551 


547- 11792 


82-1911 


#97=-2748 


227-10194 


7-13434 
0-14753 


27 
30 
211-8931 
233- 
5359-18018 


211-8948 
3553-17731 


272-13144 
206-8584 


215-9331 
352-17643 


SEQ 0388 


M14 
mit CREATED BY MACRO ON 23-OCT-80 AT 09:15 PAGE 11 
SYMBOL CROSS REFERENCE CREF vO01 


SYMBOL VALUE REFERENCES 
(PRIO7) == 000340 G #78-1675 
PRSN 002340 G #7-160 183-7355 183-7361 
PTBL.P 010320 73-1429 = #1545628 = 154-5629 =: 154-5631 = 154-5632 9=—- 154-5634 9 =*#155-5664 
155-5669 155-5671 155-5679 
P.AAA 0041 #60-704 78-1697 
P.AAB 004224 #61-719 78-1698 
P.AAC 00431 #61-737 78-1699 
P.AAD 004336 #61-744 78-1700 
P.AAE 004366 #61-752 78-1701 
P.AAF 004470 #62-778 78-1702 
P.AAG 004520 #62-786 78-1703 
P.AAH 004546 #62-794 78-1704 
P.AAL 004602 #62-804 78-1705 
P.AAJ 004634 #62-813 78-1706 
P.AAK 004706 #63-831 78-1707 
P.AAL 004742 #63-841 78-1708 
P.AAM 004772 #63-849 78-1709 
P.AAN 005046 #63-864 78-1710 
P.AAO 005106 #63-875 78-1711 
P.AAP 005154 #64-892 78-1712 
P.AAQ 005244 #64-911 78-1713 
P.AAR 005300 #64-921 79-1718 
P.AAS 005350 #65-939 79-1719 
P.AAT 005356 #65-941 79-1720 
P.AAU 005366 #65-944 79-1721 
P.AAV 005400 #65-948 79-1722 
P. AAW 005414 #65-952 79-1723 
P.AAX 005432 #65-957 79-1724 
P.AAY 005452 #65-963 79-1725 
P.AAZ 005474 #65-969 79-1726 
P.ABA 005520 #65-976 79-1727 
P.ABB 005546 #65-984 79-1728 
P.ABL 005576 #66-996 79-1729 
- ABD 005630 #66~-1005 79-1730 
P.ABE 005634 #66-1007 79-1731 
P.ABF 005646 #66-1011 79-1732 
P.ABG 005654 #66-1013 79-1733 4 
P.ABH 00566 #66-1015 79-1734 i 
P.ABI 005670 #66-1017 79-1735 
P.ABJ 005676 #66-1019 79-1736 
P.ABK 005712 #66-1023 79-1737 
P.ABL 005726 #66-1027 79-1738 
P.ABM 005740 #66-1031 79-1739 
P.ABN 005750 #66-1034 79-1740 
P.ABO 005760 #66-1037 79-1741 
P.ABP 005770 #66-1040 79-1742 
P.ABQ 005774 #66-1042 79-1743 
P.ABR 0060 #67-1050 79-1744 
P.ABS 006014 #67-1052 79-1745 
P.ABT 006022 #67-1054 79-1746 
P.ABU 0000 #67-1058 79-1747 
P. ABV 006040 #67-1060 79-1748 


ma 


155-5665 


155-5667 


SEG 0389 


co a . _ - —_ 


| N 14 


mL11 CREATED BY MACRO ON 23-0CT-80 AT 09:15 PAGE 12 
SYMBOL CROSS REFERENCE CREF O01 S£Q 0390 
pp VALUE REFERENCES 

P. ABW 006046 #67-1062 79-1749 
P.ABX 006054 #67-1064 79-1750 
P.ABY #67-1066 79-1751 
P.ABZ 006076 #67-1070 79-1752 
P.ACA 006104 #67-1072 79-1753 
P.ACB 006112 #67-1074 79-1754 
P.ACC 126 #67-1078 79-1755 
P.ACD 134 #67-1080 79-1756 
P.ACE 142 #67-1082 79-1757 
P.ACF 006156 #67-1086 79-1758 
P.ACG 64 #67-1088 79-1759 
P.ACH 006200 #67-1092 79-1760 
P.ACI #67-1094 79-1761 
P.ACJ 006212 #67-1096 79-1762 
P.ACK #67-1098 79-1763 
P.ACL 006226 #68-1104 79-1764 
P.ACM 006232 #68-1106 79-1765 
P.ACN 006242 #68-1109 79-1766 
P.ACO 006250 #68-1111 79-1767 
P.ACP 006260 #68-1114 79-1768 
P.ACQ 006264 #68-1116 79-1769 
P.ACR 006300 #68-1120 80-1774 
P.ACS 306 #68-1122 80-1775 
P.ACT 006316 #68-1125 80-1776 
P.ACU 006324 #68-1127 80-1777 
P.ACV 006336 #68-1131 80-1778 
P.ACW 350 #68-1135 80-1779 
P.ACK 006360 #68-1138 80-1780 
P.ACY 006370 #68-1141 80-1781 
P.ACZ 00 #68-1144 80-1782 
P.ADA 6406 #68-1146 80-1783 
P.ADB 6420 #68-1150 80-1784 
P.ADL 006426 #68-1152 80-1785 
P.ADD 006436 #68-1155 80-1786 
P.ADE 46 #69-1162 80-1787 
P.ADF 54 #69-1164 80-1788 
P.ADG 6462 #69-1166 80-1789 
P.ADH 006472 #69-1169 80-1790 
P.ADI 504 #69-1173 80-1791 
P.ADJ 006510 #69-1175 80-1792 
P.ADK 006526 #69-1180 80-1793 
P.ADL 006542 #69-1184 80-1794 
P.ADM 006560 #69-1189 80-1795 
P.ADN 006576 #69-1194 80-1796 
P.ADO #69-1203 80-1797 
P.ADP 006646 #69-1208 80-1798 
P.ADQ 6 #70-1216 80-1799 
P.ADR 006672 #70-1220 80-1800 
P.ADS 006714 #70-1226 80-1801 
P.ADT 7 #70-1230 80-1802 
P.ADU 006740 #70-1234 80-1803 
P.ADV 006752 #70-1238 80-1804 
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pany —T REFERENCE CREF 


ALUE 

00g "1 7 
/RO.D 0172 
'RD.EE 016242 
RO.EL 016200 
RD.ER 014422 
RD.E1 015356 
RD.E2 015576 
RD .MR 014756 
RD.PA 015150 
RD.PD 016040 
RD.REG 020210 
REG.IN 011676 
REG.1 = 00730 
REG.10 = 007372 
REG.11 = 0074 
REG.12 = 007406 
REG.15 = 007414 
REG.14 = 007422 
REG.15 = 007430 
REG.16 = 007436 
REG.2 = 007312 
REG.3 = 007320 
REG.4 = 007326 
REG.S = 0073 
REG.6 = 007342 
REG.7 = 007350 
REG.8 = 007356 
REG.9 = 007364 

E2 004106 
RES 004104 
REG 004102 
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—> ee 
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m11 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
WRD.12 = 005760 
wRD.13 = 005770 
\WRD.14 = 005774 
'WRD.15 = 006006 
\WRD.16 = 006014 
'WRD.17 = 006022 
'WRD.18 = 006034 
'WRD.19 = 006040 
| 
‘ome = 005634 
'WRD.20 = 006046 
WRD.21 = 006054 
WRD.22 = 006062 
WRD.23 = 006076 
WRD.246 = 006104 
WRD.25 = 006112 
WRD.26 = 006126 
WRD.27 = 006134 
WRD.29 = 006142 
WRD.5 = 005646 
WRD.30 = 006156 
WRD.31 = 006164 
WRD.32 = 006200 
WRD.33 = 006206 
WRD.34 = 00621 
wRD.35 = 006220 
WRD.36 = 00622 
WRD.37 = 00623 
WRD.38 = 006242 
WRD.39 = 006250 
WRD. = 005654 
WRD.40 = 006260 
WRD.41 = 006264 
WRD.42 = 006300 
WRD.43 = 006306 
WRD.44 = 006316 
WRD.45 = 006324 
| WRD.46 = 006336 
| 


CREATED BY 
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MACRO ON 23-OCT-80 AT 
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241-11428 
162-6080 


326-16152 
199-8210 


239-11182 
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CREF 


v01 
348-17423 


05-15025 


277-13457 
216-9369 


224-9838 
353-17729 
193-7915 


325-16144 
200-8268 

236-10802 
236-10799 
295-14474 
296-14496 


247-11809 


3554-17748 
205-8564 
1812 
247-11810 
247-11814 
259-12454 
181-7244 


326-16184 
206-8585 


205-8528 


5342-17125 


G 15 


267-12875 
225-9875 


305-15024 
248-11830 


5354-17751 
211-8969 


248-11 
5368-18552 


259-12453 


327-16223 
211-8986 


205-8545 


287-14019 
225-9919 


326-16153 
248-11847 


215-9332 


287-14014 


5331-16461 
215-9350 


211-8930 


3326-16185 
301-14801 


227-10129 


289-14137 


227-10177 


211-8947 


2295-14468 
5347-17377 


211-8932 


327-16224 
305-15028 


229-10364 


361-18159 


227-10222 


214-9289 


04-8509 
15-9348 
87-14016 
27-16221 


352-17662 


200-8264 


296-14494 
347-17399 


211-8949 


3331-16464 


233-10584 


230-10384 


215-9312 


SEQ 0396 


$SAVE2 


CREATED BY 


mii 
SYMBOL CROSS. REFERENCE 
WRD.47? = 006350 
WRD.4B = 006360 
WRD.49 = 006370 
\WRD.S = = 005662 
WRD.50 = 006400 
WRD.51 = 0064 
WRD.52 = 00642 
WRD.53 = 006426 
WRD.54 = 006436 
WRD.55 = 006446 
WRD.56 = 006454 
'WRD.57 = 00646 
|WRD.58 = 006472 
WRD.59 = 0065 
WRD.6 = 005670 
WRD.60 = 006510 
WRD.61 = 006526 
WRD.7 = 005676 
WRD.8 = 005712 
WRD.9 = 005726 
WRT.CS 014176 
WRT.DA 014530 
WRT.DS 017512 
WRT.D1 016302 
WRT.D2 016620 
WRT.D3 017136 
WRT.EE 016240 
WRT.EL 016176 
WRT.ER 014352 
WRT.E1 015272 
WRT.E2 015500 
WRT .MR 014706 
WRT.PA 015064 
WRT.PD 015732 
WRT.RE 017622 
WT .DAT 011670 
W.C.S1 011664 
KOR.LN 013354 
XSALWA = 0000 
X$FALS = 000040 
XSOFFS = 000400 
X$TRUE = 000020 
SEND.L 065370 
$PATCH 002720 
004006 


#104-3106 
#141-4970 
#129-4373 
#133-4565 
#137-4764 
#126-4247 
#123-4112 


#145-5183 
74-1454 
#112-3532 
125-4198 
*143-5068 
#74-1651 


MACRO ON 23-OCT-80 AT 
REFERENCES 
#80-1779 


SPP ST TTT No 


= fon — — ron — ror 
AWWOOWNO ww 


—LSOuoumouvifl Owoow'do 


‘ 
—=AN SAWN A AVTUMAWMAM UIA IU 
SE AHOWUDONINIMI MN MINPINMO MMPI NMI PP 
SF DWNNIWOA A SF VMWW AS NOUS SY 


43 


09:15 


169-6545 


i 
— 


— 


— tn FO 


~N~NOOO co — Wo 
I 

NNN NORm Nw 

— -NWWuoouw 

M—WwrwWwoouw 

RS WNNOW 


Tet TT Sh ° ah 
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CREF 


v01 


248-1183¢ 
5318-15744 


174-6861 


174-6860 


247-11773 


186-7552 


295-14472 
179-7146 
179-7154 


248-11849 
336-16802 


174-6863 


277-13463 


247-11790 


187-7569 
296-14498 


7 


98- 2791 


204-8490 


335-16737 


287-14013 


5362-18194 


361-18160 
5362-18192 


*106-3215 


118-3876 


*136-4706 


336-16787 


335-16735 


363-18233 


362-18193 363-18232 


106-3219 


#122-4058 


136-4708 


SEQ 0397 


ML11 CREATED BY MACRO ON 23-OCT-80 AT 99:15 PAGE 20 

SYMBOL CROSS REFERENCE CREF v01 SEQ 0398 
SYMBOL VALUE REFERENCES 
‘SSAVES 004022 G 12-143 13-191 18-153 -207 31-183 32-234 #45-68 81-1862 154-5613 

185-7489 189-7677 227-10094 346-17322 370-18712 

SSAVES 004040 G #45-76 94-2511 158-5837 165-6241 218-9503 222-9730 351-17612 35370-18712 
SSAVES 004060 6 38-196 42-371 #45-85 161-6001 = 169-6491 =—-172-6773_ 178-7102. =. 232=10535 = 239-11002 
| 241=11344 2645-11687 9252-12038 257-12331 264-12706 9270-13033 276-13363 285-13868 29353-14342 
299=14690 3046-14975 310-15271 316-15631 32353-16028 330-16404 5340-17002 5370-18712 
($11 021522 #158-5837 159-5900 

/$110 026334 #192-7852 194-7957 

$711 026744 #197-8115 201-8336 

$T12 030116 #204-8490 208-8729 

$113 031364 #211-8893 = 211-9131 

|$T14 032632 #213-9241 216-9406 

| $115 033532 #218-9503 = 219-9572 

$T16 033770 #222-9730 226-9961 

$117 035134 #227-10094 227-10260 

$118 036074 #229-10332 230-10424 

$119 036470 #232-10533 234-10648 

$T2 021730 #161-6001 163-6126 

$120 037136 #236-10745 236-10828 

$121 037474 #239-11002 239-11236 

$122 040650 #241-11344 2241-11476 

$123 041424 #245-11687 249-11903 

$124 042550 #252-12038 254-12170 

$125 043326 #257-12331 260-12502 

$126 044312 #264-12704 2267-12903 

$127 045424 #270-13033 9272-13173 

$128 046220 #276-13363 280-13622 

$129 047614 #285-13868 290-14181 

$13 022416 165-624 167-6357 

$130 051352 #293-14342 296-14524 

$131 052364 #299-14690 302-14859 

$132 053320 #304-14975 306-15085 

$135 053752 #310-15271 9313-15471 

$134 055010 #316-15631 319-15795 

$135 055716 #323-16028 328-16284 

$136 057244 #330-16404 332-16516 

$137 057672 #334-16687 337-16840 

$138 060664 #340-17002 343-17181 

$139 061716 #346-17322 348-17456 

$14 023040 #169-6491 169-6610 

$140 062470 #351-17612 354-17784 

$141 063424 #356-17873 357-17930 

$142 063634 #358-17995 359-18043 
| $143 064020 #361-18156 363-18267 

$144 064516 #365-18365 5366-18432 

$145 065010 #368-18527 368-18613 

$15 023476 #172-6773 =: 175-6940 

$16 024370 #178-7102 +=182-7306 
| $17 025354 #183-7361 183-7387 


$18 025426 #185-7489 187-7593 


